home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / gcl-1.000 / gcl-1 / gcl-1.0 / lsp / sloop.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-02-08  |  76.7 KB  |  3,502 lines
  1.  
  2. #include <cmpinclude.h>
  3. #include "sloop.h"
  4. init_sloop(){do_init(VV);}
  5. /*    macro definition for LCASE    */
  6.  
  7. static L1()
  8. {register object *base=vs_base;
  9.     register object *sup=base+VM1; VC1
  10.     vs_reserve(VM1);
  11.     check_arg(2);
  12.     vs_top=sup;
  13.     {object V1=base[0]->c.c_cdr;
  14.     if(endp(V1))invalid_macro_call();
  15.     base[2]= (V1->c.c_car);
  16.     V1=V1->c.c_cdr;
  17.     base[3]= V1;}
  18.     {register object V2;
  19.     register object V3;
  20.     register object V4;
  21.     V2= Cnil;
  22.     V3= Cnil;
  23.     V4= Cnil;
  24.     {register object V5;
  25.     register object V6;
  26.     V5= base[3];
  27.     V6= Cnil;
  28. T3:;
  29.     if(((V3))!=Cnil){
  30.     goto T5;}
  31.     if(((V5))!=Cnil){
  32.     goto T4;}
  33. T5:;
  34.     goto T1;
  35. T4:;
  36.     V6= car((V5));
  37.     if(!(eql(car((V6)),Ct))){
  38.     goto T16;}
  39.     V3= Ct;
  40.     V7= (V6);
  41.     goto T14;
  42. T16:;
  43.     if(!(eql(car((V6)),VV[0]))){
  44.     goto T21;}
  45.     V7= make_cons(VV[1],cdr((V6)));
  46.     goto T14;
  47. T21:;
  48.     if(!(eql(car((V6)),VV[2]))){
  49.     goto T24;}
  50.     V7= make_cons(VV[3],cdr((V6)));
  51.     goto T14;
  52. T24:;
  53.     {register object x= car((V6)),V8= VV[4];
  54.     while(!endp(V8))
  55.     if(eql(x,V8->c.c_car)){
  56.     V4= V8;
  57.     goto T29;
  58.     }else V8=V8->c.c_cdr;
  59.     V4= Cnil;}
  60. T29:;
  61.     if(((V4))==Cnil){
  62.     goto T27;}
  63.     V9= list(3,VV[5],VV[6],list(3,VV[7],VV[8],car((V4))));
  64.     V7= make_cons(/* INLINE-ARGS */V9,cdr((V6)));
  65.     goto T14;
  66. T27:;
  67.     V10= list(3,VV[9],VV[8],list(2,VV[10],car((V6))));
  68.     V7= make_cons(/* INLINE-ARGS */V10,cdr((V6)));
  69. T14:;
  70.     V2= make_cons(V7,(V2));
  71.     V5= cdr((V5));
  72.     goto T3;}
  73. T1:;
  74.     if((V3)!=Cnil){
  75.     goto T33;}
  76.     V2= make_cons(VV[11],(V2));
  77. T33:;
  78.     V11= list(2,VV[8],list(2,VV[13],base[2]));
  79.     V12= make_cons(/* INLINE-ARGS */V11,Cnil);
  80.     V13= nreverse((V2));
  81.     base[4]= list(3,VV[12],/* INLINE-ARGS */V12,make_cons(VV[14],/* INLINE-ARGS */V13));
  82.     vs_top=(vs_base=base+4)+1;
  83.     return;}
  84. }
  85. /*    local entry for function DESETQ1    */
  86.  
  87. static object LI2(V16,V17)
  88.  
  89. register object V16;register object V17;
  90. {     VMB2 VMS2 VMV2
  91. TTL:;
  92.     if(!(type_of((V16))==t_symbol)){
  93.     goto T36;}
  94.     if((V16)==Cnil){
  95.     {object V18 = Cnil;
  96.     VMR2(V18)}}
  97.     {object V19 = list(3,VV[15],(V16),(V17));
  98.     VMR2(V19)}
  99. T36:;
  100.     if(!(type_of((V16))==t_cons)){
  101.     goto T39;}
  102.     V20= car((V16));
  103.     V21= list(2,VV[17],(V17));
  104.     V22= (*(LnkLI246))(/* INLINE-ARGS */V20,/* INLINE-ARGS */V21);
  105.     if(!(type_of(cdr((V16)))==t_cons)){
  106.     goto T43;}
  107.     V24= cdr((V16));
  108.     V25= list(2,VV[18],(V17));
  109.     V26= (*(LnkLI246))(/* INLINE-ARGS */V24,/* INLINE-ARGS */V25);
  110.     V23= make_cons(/* INLINE-ARGS */V26,Cnil);
  111.     goto T41;
  112. T43:;
  113.     if((cdr((V16)))!=Cnil){
  114.     goto T45;}
  115.     V23= Cnil;
  116.     goto T41;
  117. T45:;
  118.     V27= cdr((V16));
  119.     V28= list(3,VV[15],/* INLINE-ARGS */V27,list(2,VV[18],(V17)));
  120.     V23= make_cons(/* INLINE-ARGS */V28,Cnil);
  121. T41:;
  122.     {object V29 = listA(3,VV[16],/* INLINE-ARGS */V22,V23);
  123.     VMR2(V29)}
  124. T39:;
  125.     base[0]= VV[19];
  126.     vs_top=(vs_base=base+0)+1;
  127.     Lerror();
  128.     vs_top=sup;
  129.     {object V30 = vs_base[0];
  130.     VMR2(V30)}
  131. }
  132. /*    macro definition for DESETQ    */
  133.  
  134. static L3()
  135. {register object *base=vs_base;
  136.     register object *sup=base+VM3; VC3
  137.     vs_reserve(VM3);
  138.     check_arg(2);
  139.     vs_top=sup;
  140.     {object V31=base[0]->c.c_cdr;
  141.     if(endp(V31))invalid_macro_call();
  142.     base[2]= (V31->c.c_car);
  143.     V31=V31->c.c_cdr;
  144.     if(endp(V31))invalid_macro_call();
  145.     base[3]= (V31->c.c_car);
  146.     V31=V31->c.c_cdr;
  147.     if(!endp(V31))invalid_macro_call();}
  148.     if(!(type_of(base[3])!=t_cons)){
  149.     goto T49;}
  150.     base[4]= (*(LnkLI246))(base[2],base[3]);
  151.     vs_top=(vs_base=base+4)+1;
  152.     return;
  153. T49:;
  154.     {object V32;
  155.     vs_base=vs_top;
  156.     Lgensym();
  157.     vs_top=sup;
  158.     V32= vs_base[0];
  159.     V33= list(2,(V32),base[3]);
  160.     V34= make_cons(/* INLINE-ARGS */V33,Cnil);
  161.     base[4]= list(3,VV[12],/* INLINE-ARGS */V34,(*(LnkLI246))(base[2],(V32)));
  162.     vs_top=(vs_base=base+4)+1;
  163.     return;}
  164. }
  165. /*    macro definition for LOOP-RETURN    */
  166.  
  167. static L4()
  168. {register object *base=vs_base;
  169.     register object *sup=base+VM4; VC4
  170.     vs_reserve(VM4);
  171.     check_arg(2);
  172.     vs_top=sup;
  173.     {object V35=base[0]->c.c_cdr;
  174.     base[2]= V35;}
  175.     if(!((length(base[2]))<=(1))){
  176.     goto T53;}
  177.     base[3]= make_cons(VV[20],base[2]);
  178.     vs_top=(vs_base=base+3)+1;
  179.     return;
  180. T53:;
  181.     base[3]= list(2,VV[20],make_cons(VV[21],base[2]));
  182.     vs_top=(vs_base=base+3)+1;
  183.     return;
  184. }
  185. /*    macro definition for LOOP-FINISH    */
  186.  
  187. static L5()
  188. {register object *base=vs_base;
  189.     register object *sup=base+VM5; VC5
  190.     vs_reserve(VM5);
  191.     check_arg(2);
  192.     vs_top=sup;
  193.     {object V36=base[0]->c.c_cdr;
  194.     if(!endp(V36))invalid_macro_call();}
  195.     base[2]= VV[22];
  196.     vs_top=(vs_base=base+2)+1;
  197.     return;
  198. }
  199. /*    macro definition for LOCAL-FINISH    */
  200.  
  201. static L6()
  202. {register object *base=vs_base;
  203.     register object *sup=base+VM6; VC6
  204.     vs_reserve(VM6);
  205.     check_arg(2);
  206.     vs_top=sup;
  207.     {object V37=base[0]->c.c_cdr;
  208.     if(!endp(V37))invalid_macro_call();}
  209.     base[2]= VV[23];
  210.     vs_top=(vs_base=base+2)+1;
  211.     return;
  212. }
  213. /*    macro definition for SLOOP    */
  214.  
  215. static L7()
  216. {register object *base=vs_base;
  217.     register object *sup=base+VM7; VC7
  218.     vs_reserve(VM7);
  219.     check_arg(2);
  220.     vs_top=sup;
  221.     {object V38=base[0]->c.c_cdr;
  222.     base[2]= V38;}
  223.     base[3]= (*(LnkLI247))(base[2]);
  224.     vs_top=(vs_base=base+3)+1;
  225.     return;
  226. }
  227. /*    macro definition for DEF-LOOP-MAP    */
  228.  
  229. static L8()
  230. {register object *base=vs_base;
  231.     register object *sup=base+VM8; VC8
  232.     vs_reserve(VM8);
  233.     check_arg(2);
  234.     vs_top=sup;
  235.     {object V39=base[0]->c.c_cdr;
  236.     if(endp(V39))invalid_macro_call();
  237.     base[2]= (V39->c.c_car);
  238.     V39=V39->c.c_cdr;
  239.     if(endp(V39))invalid_macro_call();
  240.     base[3]= (V39->c.c_car);
  241.     V39=V39->c.c_cdr;
  242.     base[4]= V39;}
  243.     base[5]= (VFUN_NARGS=4,(*(LnkLI248))(base[2],base[3],base[4],VV[24]));
  244.     vs_top=(vs_base=base+5)+1;
  245.     return;
  246. }
  247. /*    macro definition for DEF-LOOP-FOR    */
  248.  
  249. static L9()
  250. {register object *base=vs_base;
  251.     register object *sup=base+VM9; VC9
  252.     vs_reserve(VM9);
  253.     check_arg(2);
  254.     vs_top=sup;
  255.     {object V40=base[0]->c.c_cdr;
  256.     if(endp(V40))invalid_macro_call();
  257.     base[2]= (V40->c.c_car);
  258.     V40=V40->c.c_cdr;
  259.     if(endp(V40))invalid_macro_call();
  260.     base[3]= (V40->c.c_car);
  261.     V40=V40->c.c_cdr;
  262.     base[4]= V40;}
  263.     base[5]= (VFUN_NARGS=6,(*(LnkLI248))(base[2],base[3],base[4],VV[25],Cnil,small_fixnum(1)));
  264.     vs_top=(vs_base=base+5)+1;
  265.     return;
  266. }
  267. /*    macro definition for DEF-LOOP-MACRO    */
  268.  
  269. static L10()
  270. {register object *base=vs_base;
  271.     register object *sup=base+VM10; VC10
  272.     vs_reserve(VM10);
  273.     check_arg(2);
  274.     vs_top=sup;
  275.     {object V41=base[0]->c.c_cdr;
  276.     if(endp(V41))invalid_macro_call();
  277.     base[2]= (V41->c.c_car);
  278.     V41=V41->c.c_cdr;
  279.     if(endp(V41))invalid_macro_call();
  280.     base[3]= (V41->c.c_car);
  281.     V41=V41->c.c_cdr;
  282.     base[4]= V41;}
  283.     base[5]= (VFUN_NARGS=4,(*(LnkLI248))(base[2],base[3],base[4],VV[26]));
  284.     vs_top=(vs_base=base+5)+1;
  285.     return;
  286. }
  287. /*    macro definition for DEF-LOOP-COLLECT    */
  288.  
  289. static L11()
  290. {register object *base=vs_base;
  291.     register object *sup=base+VM11; VC11
  292.     vs_reserve(VM11);
  293.     check_arg(2);
  294.     vs_top=sup;
  295.     {object V42=base[0]->c.c_cdr;
  296.     if(endp(V42))invalid_macro_call();
  297.     base[2]= (V42->c.c_car);
  298.     V42=V42->c.c_cdr;
  299.     if(endp(V42))invalid_macro_call();
  300.     base[3]= (V42->c.c_car);
  301.     V42=V42->c.c_cdr;
  302.     base[4]= V42;}
  303.     base[5]= (VFUN_NARGS=7,(*(LnkLI248))(base[2],base[3],base[4],VV[27],VV[28],small_fixnum(2),small_fixnum(2)));
  304.     vs_top=(vs_base=base+5)+1;
  305.     return;
  306. }
  307. /*    macro definition for SLOOP-SWAP    */
  308.  
  309. static L12()
  310. {register object *base=vs_base;
  311.     register object *sup=base+VM12; VC12
  312.     vs_reserve(VM12);
  313.     check_arg(2);
  314.     vs_top=sup;
  315.     {object V43=base[0]->c.c_cdr;
  316.     if(!endp(V43))invalid_macro_call();}
  317.     base[2]= VV[29];
  318.     vs_top=(vs_base=base+2)+1;
  319.     return;
  320. }
  321. /*    local entry for function L-EQUAL    */
  322.  
  323. static object LI13(V46,V47)
  324.  
  325. object V46;register object V47;
  326. {     VMB13 VMS13 VMV13
  327. TTL:;
  328.     if(type_of((V46))==t_symbol){
  329.     goto T55;}
  330.     {object V48 = Cnil;
  331.     VMR13(V48)}
  332. T55:;
  333.     if(!(type_of((V47))==t_symbol)){
  334.     goto T58;}
  335.     V49= symbol_name((V46));
  336.     V50= symbol_name((V47));
  337.     {object V51 = (equal(/* INLINE-ARGS */V49,/* INLINE-ARGS */V50)?Ct:Cnil);
  338.     VMR13(V51)}
  339. T58:;
  340.     if(!(type_of((V47))==t_cons||((V47))==Cnil)){
  341.     goto T61;}
  342.     base[0]= (V46);
  343.     base[1]= (V47);
  344.     base[2]= VV[30];
  345.     base[3]= VV[9];
  346.     vs_top=(vs_base=base+0)+4;
  347.     Lmember();
  348.     vs_top=sup;
  349.     {object V52 = vs_base[0];
  350.     VMR13(V52)}
  351. T61:;
  352.     {object V53 = Cnil;
  353.     VMR13(V53)}
  354. }
  355. /*    local entry for function LOOP-COLLECT-KEYWORD-P    */
  356.  
  357. static object LI14(V55)
  358.  
  359. object V55;
  360. {     VMB14 VMS14 VMV14
  361. TTL:;{object V56;
  362.     base[0]= (V55);
  363.     base[1]= VV[31];
  364.     base[2]= VV[30];
  365.     base[3]= VV[9];
  366.     vs_top=(vs_base=base+0)+4;
  367.     Lmember();
  368.     vs_top=sup;
  369.     V56= vs_base[0];
  370.     if(V56==Cnil)goto T67;
  371.     {object V57 = V56;
  372.     VMR14(V57)}
  373. T67:;}
  374.     {object V58 = (VFUN_NARGS=4,(*(LnkLI249))((V55),symbol_value(VV[28]),VV[30],VV[9]));
  375.     VMR14(V58)}
  376. }
  377. /*    local entry for function TRANSLATE-NAME    */
  378.  
  379. static object LI15(V60)
  380.  
  381. object V60;
  382. {     VMB15 VMS15 VMV15
  383. TTL:;
  384.     {object V61;
  385.     if(type_of((V60))==t_symbol){
  386.     goto T74;}
  387.     V61= Cnil;
  388.     goto T73;
  389. T74:;
  390.     base[0]= (V60);
  391.     base[1]= symbol_value(VV[32]);
  392.     base[2]= VV[30];
  393.     base[3]= VV[9];
  394.     base[4]= VV[33];
  395.     base[5]= VV[17];
  396.     vs_top=(vs_base=base+0)+6;
  397.     Lmember();
  398.     vs_top=sup;
  399.     V62= vs_base[0];
  400.     V61= cdar(V62);
  401. T73:;
  402.     if(((V61))==Cnil){
  403.     goto T84;}
  404.     {object V63 = (V61);
  405.     VMR15(V63)}
  406. T84:;
  407.     {object V64 = (V60);
  408.     VMR15(V64)}}
  409. }
  410. /*    local entry for function LOOP-POP    */
  411.  
  412. static object LI16()
  413.  
  414. {     VMB16 VMS16 VMV16
  415. TTL:;
  416.     if((symbol_value(VV[34]))==Cnil){
  417.     goto T87;}
  418.     {object V65;
  419.     V65= car(symbol_value(VV[34]));
  420.     setq(VV[34],cdr(symbol_value(VV[34])));
  421.     setq(VV[35],(V65));}
  422.     {object V66 = symbol_value(VV[35]);
  423.     VMR16(V66)}
  424. T87:;
  425.     setq(VV[35],VV[36]);
  426.     {object V67 = Cnil;
  427.     VMR16(V67)}
  428. }
  429. /*    local entry for function LOOP-UN-POP    */
  430.  
  431. static object LI17()
  432.  
  433. {     VMB17 VMS17 VMV17
  434. TTL:;
  435.     {object V68= symbol_value(VV[35]);
  436.     if((V68!= VV[36]))goto T95;
  437.     {object V69 = Cnil;
  438.     VMR17(V69)}
  439. T95:;
  440.     if((V68!= VV[250]))goto T96;
  441.     base[0]= VV[37];
  442.     vs_top=(vs_base=base+0)+1;
  443.     Lerror();
  444.     vs_top=sup;
  445.     {object V70 = vs_base[0];
  446.     VMR17(V70)}
  447. T96:;
  448.     setq(VV[34],make_cons(symbol_value(VV[35]),symbol_value(VV[34])));
  449.     setq(VV[35],VV[38]);
  450.     {object V71 = VV[38];
  451.     VMR17(V71)}}
  452. }
  453. /*    local entry for function LOOP-PEEK    */
  454.  
  455. static object LI18()
  456.  
  457. {     VMB18 VMS18 VMV18
  458. TTL:;
  459.     {object V72 = car(symbol_value(VV[34]));
  460.     VMR18(V72)}
  461. }
  462. /*    local entry for function LOOP-LET-BINDINGS    */
  463.  
  464. static object LI19(V74)
  465.  
  466. register object V74;
  467. {     VMB19 VMS19 VMV19
  468. TTL:;
  469.     {register object V75;
  470.     V75= car((V74));
  471. T103:;
  472.     if(((V75))!=Cnil){
  473.     goto T104;}
  474.     {object V76 = nreverse(car((V74)));
  475.     VMR19(V76)}
  476. T104:;{object V77;
  477.     V77= cdar((V75));
  478.     if(V77==Cnil)goto T109;
  479.     goto T108;
  480. T109:;}
  481.     {register object V78;
  482.     register object V79;
  483.     V78= (V75);
  484.     V79= caar((V75));
  485.     if(type_of((V78))!=t_cons)FEwrong_type_argument(Scons,(V78));
  486.     ((V78))->c.c_car = (V79);}
  487. T108:;
  488.     V75= cdr((V75));
  489.     goto T103;}
  490. }
  491. /*    local entry for function PARSE-LOOP    */
  492.  
  493. static object LI20(V81)
  494.  
  495. object V81;
  496. {     VMB20 VMS20 VMV20
  497.     bds_check;
  498. TTL:;
  499.     {register object V82;
  500.     V82= Cnil;
  501.     {register object V83;
  502.     register object V84;
  503.     bds_bind(VV[34],(V81));
  504.     bds_bind(VV[54],symbol_value(VV[54]));
  505.     bds_bind(VV[35],Cnil);
  506.     bds_bind(VV[53],Cnil);
  507.     bds_bind(VV[49],Cnil);
  508.     bds_bind(VV[51],Cnil);
  509.     bds_bind(VV[48],Cnil);
  510.     bds_bind(VV[50],Cnil);
  511.     bds_bind(VV[43],Cnil);
  512.     bds_bind(VV[42],Cnil);
  513.     bds_bind(VV[52],Cnil);
  514.     bds_bind(VV[44],Cnil);
  515.     bds_bind(VV[45],Cnil);
  516.     bds_bind(VV[47],Cnil);
  517.     bds_bind(VV[41],Cnil);
  518.     bds_bind(VV[46],Cnil);
  519.     bds_bind(VV[40],Cnil);
  520.     bds_bind(VV[39],Cnil);
  521.     V83= Cnil;
  522.     V84= VV[55];
  523.     if(!(type_of(car((VV[34]->s.s_dbind)))==t_symbol)){
  524.     goto T119;}
  525.     if((car((VV[34]->s.s_dbind)))!=Cnil){
  526.     goto T118;}
  527. T119:;
  528.     (VV[34]->s.s_dbind)= make_cons(VV[56],(VV[34]->s.s_dbind));
  529. T118:;
  530.     (void)((*(LnkLI251))());
  531.     if(((VV[53]->s.s_dbind))!=Cnil){
  532.     goto T126;}
  533.     if(((VV[40]->s.s_dbind))==Cnil){
  534.     goto T125;}
  535. T126:;
  536.     if((VV[51]->s.s_dbind)!=Cnil){
  537.     goto T130;}
  538.     base[18]= VV[57];
  539.     vs_top=(vs_base=base+18)+1;
  540.     Lgensym();
  541.     vs_top=sup;
  542.     (VV[51]->s.s_dbind)= vs_base[0];
  543. T130:;
  544.     if(eql(VV[55],(V84))){
  545.     goto T133;}
  546.     goto T125;
  547. T133:;
  548.     base[18]= VV[58];
  549.     vs_top=(vs_base=base+18)+1;
  550.     Lgensym();
  551.     vs_top=sup;
  552.     V84= vs_base[0];
  553. T125:;
  554.     V85= list(3,VV[59],VV[60],list(4,VV[61],VV[62],list(2,VV[10],(VV[51]->s.s_dbind)),VV[63]));
  555.     V83= make_cons(/* INLINE-ARGS */V85,(V83));
  556.     V86= list(3,VV[64],Cnil,list(3,VV[61],VV[65],list(2,VV[10],(V84))));
  557.     V83= make_cons(/* INLINE-ARGS */V86,(V83));
  558.     V87= list(3,VV[66],Cnil,list(3,VV[61],VV[67],list(2,VV[10],(V84))));
  559.     V83= make_cons(/* INLINE-ARGS */V87,(V83));
  560.     if((VV[45]->s.s_dbind)==Cnil){
  561.     goto T143;}
  562.     V88= list(3,VV[68],(VV[51]->s.s_dbind),(VV[45]->s.s_dbind));
  563.     (VV[43]->s.s_dbind)= make_cons(/* INLINE-ARGS */V88,(VV[43]->s.s_dbind));
  564. T143:;
  565.     base[18]= (VV[41]->s.s_dbind);
  566.     base[19]= nreverse((VV[49]->s.s_dbind));
  567.     base[20]= nreverse((VV[42]->s.s_dbind));
  568.     vs_top=(vs_base=base+18)+3;
  569.     Lappend();
  570.     vs_top=sup;
  571.     V82= vs_base[0];
  572.     if(((VV[53]->s.s_dbind))==Cnil){
  573.     goto T152;}
  574.     V82= (*(LnkLI252))((V82));
  575.     goto T150;
  576. T152:;
  577.     V89= append((V82),VV[70]);
  578.     V82= make_cons(VV[69],/* INLINE-ARGS */V89);
  579. T150:;
  580.     {register object V90;{object V91;
  581.     V91= (VV[51]->s.s_dbind);
  582.     base[18]= nreverse((VV[48]->s.s_dbind));
  583.     base[19]= (V82);
  584.     base[20]= make_cons((V84),Cnil);
  585.     base[21]= nreverse((VV[43]->s.s_dbind));
  586.     base[22]= VV[74];
  587.     vs_top=(vs_base=base+18)+5;
  588.     Lappend();
  589.     vs_top=sup;
  590.     V92= vs_base[0];
  591.     V90= list(3,VV[71],(V83),list(3,VV[72],V91,make_cons(VV[73],V92)));}
  592.     if(eql(symbol_value(VV[75]),symbol_value(VV[76]))){
  593.     goto T163;}
  594.     base[18]= (V90);
  595.     vs_top=(vs_base=base+18)+1;
  596.     Lcopy_tree();
  597.     vs_top=sup;
  598.     V90= vs_base[0];
  599. T163:;
  600.     {register object V93;
  601.     register object V94;
  602.     V93= (VV[46]->s.s_dbind);
  603.     V94= car((V93));
  604. T172:;
  605.     if(!(endp((V93)))){
  606.     goto T173;}
  607.     goto T168;
  608. T173:;
  609.     V95= (*(LnkLI253))((V94));
  610.     if((cdr((V94)))!=Cnil){
  611.     goto T180;}
  612.     V96= Cnil;
  613.     goto T179;
  614. T180:;
  615.     V97= make_cons(VV[77],cdr((V94)));
  616.     V96= make_cons(/* INLINE-ARGS */V97,Cnil);
  617. T179:;
  618.     V98= make_cons((V90),Cnil);
  619.     V90= listA(3,VV[12],/* INLINE-ARGS */V95,append(V96,/* INLINE-ARGS */V98));
  620.     V93= cdr((V93));
  621.     V94= car((V93));
  622.     goto T172;}
  623. T168:;
  624.     {object V99 = (V90);
  625.     bds_unwind1;
  626.     bds_unwind1;
  627.     bds_unwind1;
  628.     bds_unwind1;
  629.     bds_unwind1;
  630.     bds_unwind1;
  631.     bds_unwind1;
  632.     bds_unwind1;
  633.     bds_unwind1;
  634.     bds_unwind1;
  635.     bds_unwind1;
  636.     bds_unwind1;
  637.     bds_unwind1;
  638.     bds_unwind1;
  639.     bds_unwind1;
  640.     bds_unwind1;
  641.     bds_unwind1;
  642.     bds_unwind1;
  643.     VMR20(V99)}}}}
  644. }
  645. /*    local entry for function PARSE-LOOP1    */
  646.  
  647. static object LI21()
  648.  
  649. {     VMB21 VMS21 VMV21
  650. TTL:;
  651.     {object V100;
  652.     V101= (*(LnkLI254))();
  653.     V100= (*(LnkLI13))(/* INLINE-ARGS */V101);
  654.     if(((*(LnkLI9))((V100),VV[78]))==Cnil){
  655.     goto T187;}
  656.     (void)((*(LnkLI255))());
  657.     setq(VV[51],(*(LnkLI255))());}
  658. T187:;
  659.     {register object V102;
  660.     V102= (*(LnkLI255))();
  661. T195:;
  662.     if(((V102))!=Cnil){
  663.     goto T196;}
  664.     if((symbol_value(VV[34]))!=Cnil){
  665.     goto T196;}
  666.     {object V103 = Cnil;
  667.     VMR21(V103)}
  668. T196:;
  669.     {register object V104;
  670.     V104= (*(LnkLI13))((V102));
  671.     {register object V105;
  672.     V105= (*(LnkLI256))((V104));
  673.     if(((V105))==Cnil){
  674.     goto T206;}
  675.     goto T202;
  676. T206:;
  677.     if(((*(LnkLI9))((V104),VV[25]))==Cnil){
  678.     goto T209;}
  679.     (void)((*(LnkLI257))());
  680.     goto T202;
  681. T209:;
  682.     if(((*(LnkLI9))((V104),VV[79]))==Cnil){
  683.     goto T212;}
  684.     V106= (*(LnkLI255))();
  685.     V107= list(3,VV[80],/* INLINE-ARGS */V106,VV[81]);
  686.     setq(VV[49],make_cons(/* INLINE-ARGS */V107,symbol_value(VV[49])));
  687.     goto T202;
  688. T212:;
  689.     if(((*(LnkLI9))((V104),VV[82]))==Cnil){
  690.     goto T216;}
  691.     V108= (*(LnkLI255))();
  692.     V109= list(3,VV[5],/* INLINE-ARGS */V108,VV[83]);
  693.     setq(VV[49],make_cons(/* INLINE-ARGS */V109,symbol_value(VV[49])));
  694.     goto T202;
  695. T216:;
  696.     if(((*(LnkLI9))((V104),VV[56]))==Cnil){
  697.     goto T220;}
  698.     V110= (*(LnkLI258))();
  699.     setq(VV[49],append(/* INLINE-ARGS */V110,symbol_value(VV[49])));
  700.     goto T202;
  701. T220:;
  702.     if(((*(LnkLI9))((V104),VV[84]))==Cnil){
  703.     goto T224;}
  704.     V111= (*(LnkLI259))();
  705.     setq(VV[49],append(/* INLINE-ARGS */V111,symbol_value(VV[49])));
  706.     goto T202;
  707. T224:;
  708.     if(((*(LnkLI260))((V104)))==Cnil){
  709.     goto T228;}
  710.     V112= (*(LnkLI261))();
  711.     setq(VV[49],append(/* INLINE-ARGS */V112,symbol_value(VV[49])));
  712.     goto T202;
  713. T228:;
  714.     base[0]= VV[85];
  715.     base[1]= (V104);
  716.     vs_top=(vs_base=base+0)+2;
  717.     Lerror();
  718.     vs_top=sup;}}
  719. T202:;
  720.     V102= (*(LnkLI255))();
  721.     goto T195;}
  722. }
  723. /*    local entry for function PARSE-NO-BODY    */
  724.  
  725. static object LI22(V114)
  726.  
  727. object V114;
  728. {     VMB22 VMS22 VMV22
  729. TTL:;
  730.     {register object V115;
  731.     register object V116;
  732.     V115= Ct;
  733.     V116= Ct;
  734.     {register object V117;
  735.     V117= (V114);
  736. T240:;
  737.     if(((V116))!=Cnil){
  738.     goto T241;}
  739.     if((symbol_value(VV[34]))!=Cnil){
  740.     goto T241;}
  741.     goto T238;
  742. T241:;
  743.     {register object V118;
  744.     V118= (*(LnkLI13))((V117));
  745.     if(((*(LnkLI9))((V118),VV[86]))==Cnil){
  746.     goto T250;}
  747.     (void)((*(LnkLI262))((V117)));
  748.     goto T247;
  749. T250:;
  750.     if(((*(LnkLI9))((V118),Cnil))==Cnil){
  751.     goto T253;}
  752.     goto T247;
  753. T253:;
  754.     if(((*(LnkLI9))((V118),VV[87]))==Cnil){
  755.     goto T256;}
  756.     (void)((VFUN_NARGS=0,(*(LnkLI263))()));
  757.     goto T247;
  758. T256:;
  759.     if(((*(LnkLI9))((V118),VV[77]))==Cnil){
  760.     goto T259;}
  761.     V119= (*(LnkLI255))();
  762.     (void)((VFUN_NARGS=2,(*(LnkLI264))(/* INLINE-ARGS */V119,Ct)));
  763.     goto T247;
  764. T259:;
  765.     if(((*(LnkLI9))((V118),VV[88]))==Cnil){
  766.     goto T262;}
  767.     setq(VV[47],(*(LnkLI255))());
  768.     goto T247;
  769. T262:;
  770.     if(((*(LnkLI9))((V118),VV[89]))==Cnil){
  771.     goto T266;}
  772.     V120= (*(LnkLI258))();
  773.     setq(VV[42],append(/* INLINE-ARGS */V120,symbol_value(VV[42])));
  774.     goto T247;
  775. T266:;
  776.     if(((*(LnkLI9))((V118),VV[90]))==Cnil){
  777.     goto T270;}
  778.     V121= (*(LnkLI258))();
  779.     setq(VV[41],append(/* INLINE-ARGS */V121,symbol_value(VV[41])));
  780.     goto T247;
  781. T270:;
  782.     if(((*(LnkLI9))((V118),VV[91]))==Cnil){
  783.     goto T274;}
  784.     (void)((VFUN_NARGS=2,(*(LnkLI263))(Cnil,Ct)));
  785.     goto T247;
  786. T274:;
  787.     if(!(type_of((V118))==t_symbol)){
  788.     goto T277;}
  789.     if((get((V118),VV[92],Cnil))==Cnil){
  790.     goto T277;}
  791.     (void)((VFUN_NARGS=2,(*(LnkLI265))((V117),VV[92])));
  792.     goto T247;
  793. T277:;
  794.     if(((V116))==Cnil){
  795.     goto T283;}
  796.     V115= Cnil;
  797.     goto T281;
  798. T283:;
  799.     (void)((*(LnkLI266))());
  800. T281:;
  801.     goto T238;}
  802. T247:;
  803.     V116= Cnil;
  804.     V117= (*(LnkLI255))();
  805.     goto T240;}
  806. T238:;
  807.     {object V122 = (V115);
  808.     VMR22(V122)}}
  809. }
  810. /*    local entry for function PARSE-LOOP-WITH    */
  811.  
  812. static object LI23(va_alist)
  813.     va_dcl 
  814. {    
  815.     va_list ap;
  816.     int narg = VFUN_NARGS; VMB23 VMS23 VMV23
  817.     {object V123;
  818.     object V124;
  819.     narg = narg - 0;
  820.     if (narg <= 0) goto T291;
  821.     else {
  822.     va_start(ap);
  823.     V123= va_arg(ap,object);}
  824.     if (--narg <= 0) goto T292;
  825.     else {
  826.     V124= va_arg(ap,object);}
  827.     --narg; goto T293;
  828. T291:;
  829.     V123= Cnil;
  830. T292:;
  831.     V124= Cnil;
  832. T293:;
  833.     {register object V125;
  834.     V125= (*(LnkLI255))();
  835.     {object V126;
  836.     V127= (*(LnkLI254))();
  837.     V126= (*(LnkLI13))(/* INLINE-ARGS */V127);
  838.     if(((*(LnkLI9))((V126),VV[94]))==Cnil){
  839.     goto T300;}
  840.     (void)((*(LnkLI255))());
  841.     if(!(type_of((V125))==t_symbol)){
  842.     goto T304;}
  843.     goto T303;
  844. T304:;
  845.     base[0]= VV[95];
  846.     base[1]= (V125);
  847.     vs_top=(vs_base=base+0)+2;
  848.     Lerror();
  849.     vs_top=sup;
  850. T303:;
  851.     V128= (*(LnkLI255))();
  852.     (void)((VFUN_NARGS=7,(*(LnkLI267))((V125),/* INLINE-ARGS */V128,(((V123))==Cnil?Ct:Cnil),Cnil,Cnil,Ct,(V124))));
  853.     goto T297;
  854. T300:;
  855.     (void)((VFUN_NARGS=5,(*(LnkLI268))((V125),Cnil,Cnil,(((V123))==Cnil?Ct:Cnil),(V124))));}
  856. T297:;
  857.     {object V129;
  858.     V130= (*(LnkLI254))();
  859.     V129= (*(LnkLI13))(/* INLINE-ARGS */V130);
  860.     if(((*(LnkLI9))((V129),VV[5]))==Cnil){
  861.     goto T310;}
  862.     (void)((*(LnkLI255))());
  863.     {object V131;
  864.     V132= (*(LnkLI255))();
  865.     V131= (*(LnkLI13))(/* INLINE-ARGS */V132);
  866.     if(((*(LnkLI9))((V131),VV[87]))==Cnil){
  867.     goto T315;}
  868.     {object V133 = (VFUN_NARGS=1,(*(LnkLI263))(Ct));
  869.     VMR23(V133)}
  870. T315:;
  871.     if(((*(LnkLI9))((V131),VV[91]))==Cnil){
  872.     goto T318;}
  873.     {object V134 = (VFUN_NARGS=2,(*(LnkLI263))(Ct,Ct));
  874.     VMR23(V134)}
  875. T318:;
  876.     (void)((*(LnkLI266))());
  877.     {object V135 = (VFUN_NARGS=1,(*(LnkLI263))(Ct));
  878.     VMR23(V135)}}
  879. T310:;
  880.     {object V136 = Cnil;
  881.     VMR23(V136)}}}}
  882.     }
  883. /*    local entry for function PARSE-LOOP-DO    */
  884.  
  885. static object LI24()
  886.  
  887. {     VMB24 VMS24 VMV24
  888. TTL:;
  889.     {register object V137;
  890.     V137= Cnil;
  891.     {register object V138;
  892.     V138= (*(LnkLI255))();
  893. T325:;
  894.     if(!(type_of((V138))==t_cons||((V138))==Cnil)){
  895.     goto T330;}
  896.     V137= make_cons((V138),(V137));
  897.     if(symbol_value(VV[34])!=Cnil){
  898.     goto T328;}
  899.     goto T322;
  900. T330:;
  901.     (void)((*(LnkLI266))());
  902.     goto T322;
  903. T328:;
  904.     V138= (*(LnkLI255))();
  905.     goto T325;}
  906. T322:;
  907.     if((V137)!=Cnil){
  908.     goto T338;}
  909.     base[0]= VV[96];
  910.     vs_top=(vs_base=base+0)+1;
  911.     Lerror();
  912.     vs_top=sup;
  913. T338:;
  914.     {object V139 = (V137);
  915.     VMR24(V139)}}
  916. }
  917. /*    local entry for function PARSE-LOOP-INITIALLY    */
  918.  
  919. static object LI25(V141)
  920.  
  921. object V141;
  922. {     VMB25 VMS25 VMV25
  923. TTL:;
  924.     {object V142;
  925.     V142= (*(LnkLI13))((V141));
  926.     if(((*(LnkLI9))((V142),VV[97]))==Cnil){
  927.     goto T342;}
  928.     {object V143;
  929.     V143= (*(LnkLI258))();
  930.     {register object V144;
  931.     register object V145;
  932.     V144= nreverse((V143));
  933.     V145= car((V144));
  934. T348:;
  935.     if(!(endp((V144)))){
  936.     goto T349;}
  937.     {object V146 = Cnil;
  938.     VMR25(V146)}
  939. T349:;
  940.     {register object V147;
  941.     if(type_of((V145))==t_cons||((V145))==Cnil){
  942.     goto T355;}
  943.     V147= Cnil;
  944.     goto T354;
  945. T355:;
  946.     {register object x= car((V145)),V148= VV[98];
  947.     while(!endp(V148))
  948.     if(eql(x,V148->c.c_car)){
  949.     goto T357;
  950.     }else V148=V148->c.c_cdr;}
  951.     V147= Cnil;
  952.     goto T354;
  953. T357:;
  954.     if((length((V145)))==(3)){
  955.     goto T359;}
  956.     V147= Cnil;
  957.     goto T354;
  958. T359:;
  959.     if(type_of(cadr((V145)))==t_symbol){
  960.     goto T361;}
  961.     V147= Cnil;
  962.     goto T354;
  963. T361:;
  964.     base[2]= caddr((V145));
  965.     vs_top=(vs_base=base+2)+1;
  966.     Lconstantp();
  967.     vs_top=sup;
  968.     if((vs_base[0])!=Cnil){
  969.     goto T363;}
  970.     V147= Cnil;
  971.     goto T354;
  972. T363:;
  973.     {register object x= cadr((V145)),V149= caar(symbol_value(VV[46]));
  974.     while(!endp(V149))
  975.     if(type_of(V149->c.c_car)==t_cons &&eql(x,V149->c.c_car->c.c_car)){
  976.     goto T366;
  977.     }else V149=V149->c.c_cdr;}
  978.     V147= Cnil;
  979.     goto T354;
  980. T366:;
  981.     V147= (VFUN_NARGS=7,(*(LnkLI267))(cadr((V145)),caddr((V145)),Cnil,Cnil,Cnil,Ct,Ct));
  982. T354:;
  983.     if(((V147))==Cnil){
  984.     goto T369;}
  985.     goto T353;
  986. T369:;
  987.     setq(VV[48],make_cons((V145),symbol_value(VV[48])));}
  988. T353:;
  989.     V144= cdr((V144));
  990.     V145= car((V144));
  991.     goto T348;}}
  992. T342:;
  993.     if(((*(LnkLI9))((V142),VV[99]))==Cnil){
  994.     goto T378;}
  995.     V150= (*(LnkLI258))();
  996.     setq(VV[43],append(/* INLINE-ARGS */V150,symbol_value(VV[43])));
  997.     {object V151 = symbol_value(VV[43]);
  998.     VMR25(V151)}
  999. T378:;
  1000.     base[0]= VV[85];
  1001.     base[1]= (V142);
  1002.     vs_top=(vs_base=base+0)+2;
  1003.     Lerror();
  1004.     vs_top=sup;
  1005.     {object V152 = vs_base[0];
  1006.     VMR25(V152)}}
  1007. }
  1008. /*    local entry for function PARSE-ONE-WHEN-CLAUSE    */
  1009.  
  1010. static object LI26()
  1011.  
  1012. {     VMB26 VMS26 VMV26
  1013. TTL:;
  1014.     {register object V153;
  1015.     register object V154;
  1016.     register object V155;
  1017.     V153= Cnil;
  1018.     V154= VV[100];
  1019.     V155= Cnil;
  1020. T388:;
  1021.     if((symbol_value(VV[34]))==Cnil){
  1022.     goto T391;}
  1023.     goto T390;
  1024. T391:;
  1025.     goto T386;
  1026. T390:;
  1027.     V155= (*(LnkLI255))();
  1028.     {register object V156;
  1029.     V156= (*(LnkLI13))((V155));
  1030.     {register object V157;
  1031.     V157= (*(LnkLI256))((V156));
  1032.     if(((V157))==Cnil){
  1033.     goto T399;}
  1034.     goto T395;
  1035. T399:;
  1036.     if(((*(LnkLI260))((V156)))==Cnil){
  1037.     goto T402;}
  1038.     if(!(eql(VV[100],(V154)))){
  1039.     goto T405;}
  1040.     goto T404;
  1041. T405:;
  1042.     goto T389;
  1043. T404:;
  1044.     V158= (*(LnkLI261))();
  1045.     V153= append(/* INLINE-ARGS */V158,(V153));
  1046.     V154= VV[5];
  1047.     goto T395;
  1048. T402:;
  1049.     if(((*(LnkLI9))((V156),VV[101]))==Cnil){
  1050.     goto T411;}
  1051.     if(!(eql(VV[100],(V154)))){
  1052.     goto T414;}
  1053.     goto T413;
  1054. T414:;
  1055.     goto T389;
  1056. T413:;
  1057.     V159= (*(LnkLI259))();
  1058.     V153= append(/* INLINE-ARGS */V159,(V153));
  1059.     V154= VV[5];
  1060.     goto T395;
  1061. T411:;
  1062.     if(((*(LnkLI9))((V156),VV[56]))==Cnil){
  1063.     goto T420;}
  1064.     if(!(eql(VV[100],(V154)))){
  1065.     goto T423;}
  1066.     goto T422;
  1067. T423:;
  1068.     goto T389;
  1069. T422:;
  1070.     V160= (*(LnkLI258))();
  1071.     V153= append(/* INLINE-ARGS */V160,(V153));
  1072.     V154= VV[5];
  1073.     goto T395;
  1074. T420:;
  1075.     if(((*(LnkLI9))((V156),VV[5]))==Cnil){
  1076.     goto T429;}
  1077.     if(!(eql(VV[5],(V154)))){
  1078.     goto T432;}
  1079.     goto T431;
  1080. T432:;
  1081.     base[0]= VV[102];
  1082.     vs_top=(vs_base=base+0)+1;
  1083.     Lerror();
  1084.     vs_top=sup;
  1085. T431:;
  1086.     V154= VV[100];
  1087.     goto T395;
  1088. T429:;
  1089.     (void)((*(LnkLI266))());
  1090.     goto T386;}}
  1091. T395:;
  1092.     goto T388;
  1093. T389:;
  1094.     (void)((*(LnkLI266))());
  1095.     goto T386;
  1096. T386:;
  1097.     if((V153)!=Cnil){
  1098.     goto T438;}
  1099.     base[0]= VV[103];
  1100.     vs_top=(vs_base=base+0)+1;
  1101.     Lerror();
  1102.     vs_top=sup;
  1103. T438:;
  1104.     {object V161 = (V153);
  1105.     VMR26(V161)}}
  1106. }
  1107. /*    local entry for function PARSE-LOOP-WHEN    */
  1108.  
  1109. static object LI27()
  1110.  
  1111. {     VMB27 VMS27 VMV27
  1112. TTL:;
  1113.     {object V162;
  1114.     object V163;
  1115.     object V164;
  1116.     V162= Cnil;
  1117.     V163= Cnil;
  1118.     V164= Cnil;
  1119.     {object V165;
  1120.     if(((*(LnkLI9))(symbol_value(VV[35]),VV[104]))==Cnil){
  1121.     goto T445;}
  1122.     V165= list(2,VV[105],(*(LnkLI255))());
  1123.     goto T443;
  1124. T445:;
  1125.     V165= (*(LnkLI255))();
  1126. T443:;
  1127.     V162= (*(LnkLI269))();
  1128.     {object V166;
  1129.     V167= (*(LnkLI254))();
  1130.     V166= (*(LnkLI13))(/* INLINE-ARGS */V167);
  1131.     if(((*(LnkLI9))((V166),VV[106]))==Cnil){
  1132.     goto T449;}
  1133.     (void)((*(LnkLI255))());
  1134.     V163= Ct;
  1135.     V164= (*(LnkLI269))();}
  1136. T449:;
  1137.     V168= nreverse((V162));
  1138.     V169= make_cons((V165),/* INLINE-ARGS */V168);
  1139.     if((V163)==Cnil){
  1140.     V170= Cnil;
  1141.     goto T457;}
  1142.     V171= nreverse((V164));
  1143.     V172= make_cons(Ct,/* INLINE-ARGS */V171);
  1144.     V170= make_cons(/* INLINE-ARGS */V172,Cnil);
  1145. T457:;
  1146.     V173= listA(3,VV[14],/* INLINE-ARGS */V169,V170);
  1147.     {object V174 = make_cons(/* INLINE-ARGS */V173,Cnil);
  1148.     VMR27(V174)}}}
  1149. }
  1150. /*    local entry for function POINTER-FOR-COLLECT    */
  1151.  
  1152. static object LI28(V176)
  1153.  
  1154. object V176;
  1155. {     VMB28 VMS28 VMV28
  1156. TTL:;{object V177;
  1157.     {register object x= (V176),V179= symbol_value(VV[52]);
  1158.     while(!endp(V179))
  1159.     if(type_of(V179->c.c_car)==t_cons &&eql(x,V179->c.c_car->c.c_car)){
  1160.     V178= (V179->c.c_car);
  1161.     goto T460;
  1162.     }else V179=V179->c.c_cdr;
  1163.     V178= Cnil;}
  1164. T460:;
  1165.     V177= cdr(V178);
  1166.     if(V177==Cnil)goto T458;
  1167.     {object V180 = V177;
  1168.     VMR28(V180)}
  1169. T458:;}
  1170.     {object V181;
  1171.     base[0]= VV[107];
  1172.     vs_top=(vs_base=base+0)+1;
  1173.     Lgensym();
  1174.     vs_top=sup;
  1175.     V182= vs_base[0];
  1176.     V181= (VFUN_NARGS=4,(*(LnkLI267))(V182,Cnil,Cnil,VV[0]));
  1177.     V183= make_cons((V176),(V181));
  1178.     setq(VV[52],make_cons(/* INLINE-ARGS */V183,symbol_value(VV[52])));
  1179.     {object V184 = (V181);
  1180.     VMR28(V184)}}
  1181. }
  1182. /*    local entry for function PARSE-LOOP-COLLECT    */
  1183.  
  1184. static object LI29()
  1185.  
  1186. {     VMB29 VMS29 VMV29
  1187. TTL:;
  1188.     {register object V185;
  1189.     register object V186;
  1190.     register object V187;
  1191.     V185= Cnil;
  1192.     V186= Cnil;
  1193.     V187= Cnil;
  1194.     if(symbol_value(VV[50])==Cnil){
  1195.     goto T469;}
  1196.     {frame_ptr fr;
  1197.     fr=frs_sch_catch(VV[27]);
  1198.     if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[27]);
  1199.     base[0]= Cnil;
  1200.     vs_top=(vs_base=base+0)+1;
  1201.     unwind(fr,VV[27]);}
  1202. T469:;
  1203.     {register object V188;
  1204.     register object V189;
  1205.     V188= symbol_value(VV[35]);
  1206.     V189= (*(LnkLI255))();
  1207.     {object V190;
  1208.     V191= (*(LnkLI255))();
  1209.     V190= (*(LnkLI13))(/* INLINE-ARGS */V191);
  1210.     if(((*(LnkLI9))((V190),VV[108]))==Cnil){
  1211.     goto T476;}
  1212.     V185= (*(LnkLI255))();
  1213.     (void)((VFUN_NARGS=6,(*(LnkLI267))((V185),Cnil,Cnil,Ct,Cnil,Ct)));
  1214.     goto T473;
  1215. T476:;
  1216.     (void)((*(LnkLI266))());
  1217.     if((symbol_value(VV[45]))==Cnil){
  1218.     goto T481;}
  1219.     V185= symbol_value(VV[45]);
  1220.     goto T473;
  1221. T481:;
  1222.     base[0]= VV[109];
  1223.     vs_top=(vs_base=base+0)+1;
  1224.     Lgensym();
  1225.     vs_top=sup;
  1226.     V192= vs_base[0];
  1227.     setq(VV[45],(VFUN_NARGS=2,(*(LnkLI267))(V192,Cnil)));
  1228.     V185= symbol_value(VV[45]);}
  1229. T473:;
  1230.     {object V193;
  1231.     V193= (*(LnkLI13))((V188));
  1232.     if(((*(LnkLI9))((V193),VV[110]))==Cnil){
  1233.     goto T488;}
  1234.     V186= (*(LnkLI270))((V185));
  1235.     if((symbol_value(VV[111]))==Cnil){
  1236.     goto T494;}
  1237.     base[0]= list(3,VV[15],(V186),list(2,VV[112],(V185)));
  1238.     base[1]= symbol_value(VV[48]);
  1239.     base[2]= VV[30];
  1240.     base[3]= VV[113];
  1241.     vs_top=(vs_base=base+0)+4;
  1242.     Ladjoin();
  1243.     vs_top=sup;
  1244.     setq(VV[48],vs_base[0]);
  1245. T494:;
  1246.     {object V194;
  1247.     V194= (*(LnkLI13))((V188));
  1248.     if(((*(LnkLI9))((V194),VV[114]))==Cnil){
  1249.     goto T488;}
  1250.     if(!(type_of((V189))==t_cons||((V189))==Cnil)){
  1251.     goto T505;}
  1252.     if(eql(car((V189)),VV[61])){
  1253.     goto T488;}
  1254. T505:;
  1255.     V189= list(2,VV[115],(V189));}}
  1256. T488:;
  1257.     if(!(type_of((V189))==t_cons||((V189))==Cnil)){
  1258.     goto T512;}
  1259.     if((symbol_value(VV[111]))!=Cnil){
  1260.     goto T512;}
  1261.     base[0]= VV[116];
  1262.     vs_top=(vs_base=base+0)+1;
  1263.     Lgensym();
  1264.     vs_top=sup;
  1265.     V195= vs_base[0];
  1266.     V187= (VFUN_NARGS=3,(*(LnkLI267))(V195,Cnil,Cnil));
  1267.     goto T510;
  1268. T512:;
  1269.     V187= (V189);
  1270. T510:;
  1271.     {object V196;
  1272.     {object V197;
  1273.     V197= (*(LnkLI13))((V188));
  1274.     if(((*(LnkLI9))((V197),VV[117]))==Cnil){
  1275.     goto T523;}
  1276.     {object V198;
  1277.     V199= list(3,VV[15],list(2,VV[18],(V186)),(V187));
  1278.     V198= list(3,VV[5],/* INLINE-ARGS */V199,list(3,VV[15],(V186),list(2,VV[118],list(2,VV[18],(V186)))));
  1279.     if((symbol_value(VV[111]))==Cnil){
  1280.     goto T527;}
  1281.     V196= make_cons((V198),Cnil);
  1282.     goto T520;
  1283. T527:;
  1284.     V200= list(2,(V186),(V198));
  1285.     V201= list(3,VV[14],/* INLINE-ARGS */V200,list(2,Ct,list(3,VV[15],(V186),list(2,VV[118],list(3,VV[15],(V185),(V187))))));
  1286.     V196= make_cons(/* INLINE-ARGS */V201,Cnil);
  1287.     goto T520;}
  1288. T523:;
  1289.     if(((*(LnkLI9))((V197),VV[27]))==Cnil){
  1290.     goto T530;}
  1291.     if((symbol_value(VV[111]))==Cnil){
  1292.     goto T533;}
  1293.     V202= list(2,VV[18],(V186));
  1294.     V203= list(3,VV[15],/* INLINE-ARGS */V202,list(3,VV[15],(V186),list(3,VV[119],(V187),Cnil)));
  1295.     V196= make_cons(/* INLINE-ARGS */V203,Cnil);
  1296.     goto T520;
  1297. T533:;
  1298.     V204= list(2,VV[18],(V186));
  1299.     V205= list(2,(V186),list(3,VV[15],/* INLINE-ARGS */V204,list(3,VV[15],(V186),list(3,VV[119],(V187),Cnil))));
  1300.     V206= list(3,VV[14],/* INLINE-ARGS */V205,list(2,Ct,list(3,VV[15],(V185),list(3,VV[15],(V186),list(3,VV[119],(V187),Cnil)))));
  1301.     V196= make_cons(/* INLINE-ARGS */V206,Cnil);
  1302.     goto T520;
  1303. T530:;
  1304.     V188= (*(LnkLI13))((V188));
  1305.     if(((VFUN_NARGS=4,(*(LnkLI249))((V188),symbol_value(VV[28]),VV[30],VV[9])))==Cnil){
  1306.     goto T538;}
  1307.     V196= (*(LnkLI271))((V188),(V185),(V187));
  1308.     goto T520;
  1309. T538:;
  1310.     base[0]= VV[120];
  1311.     base[1]= (V188);
  1312.     vs_top=(vs_base=base+0)+2;
  1313.     Lerror();
  1314.     vs_top=sup;
  1315.     V196= vs_base[0];}
  1316. T520:;
  1317.     if(!(eql((V187),(V189)))){
  1318.     goto T543;}
  1319.     {object V207 = (V196);
  1320.     VMR29(V207)}
  1321. T543:;
  1322.     V208= list(3,VV[15],(V187),(V189));
  1323.     V209= make_cons(/* INLINE-ARGS */V208,Cnil);
  1324.     {object V210 = nconc((V196),/* INLINE-ARGS */V209);
  1325.     VMR29(V210)}}}}
  1326. }
  1327. /*    local entry for function LOOP-PARSE-ADDITIONAL-COLLECTIONS    */
  1328.  
  1329. static object LI30(V214,V215,V216)
  1330.  
  1331. object V214;object V215;object V216;
  1332. {     VMB30 VMS30 VMV30
  1333.     bds_check;
  1334. TTL:;
  1335.     {register object V217;
  1336.     V217= Cnil;
  1337.     {object V218;
  1338.     object V219;
  1339.     V218= (VFUN_NARGS=4,(*(LnkLI249))((V214),symbol_value(VV[28]),VV[30],VV[9]));
  1340.     V219= get((V218),VV[121],Cnil);
  1341.     {object V220;
  1342.     V220= (
  1343.     (type_of((V219)) == t_sfun ?(*(object (*)())(((V219))->sfn.sfn_self)):
  1344.     (fcall.fun=((V219)),fcall.argd=2,fcalln))((V215),(V216)));
  1345.     bds_bind(VV[34],(V220));
  1346.     bds_bind(VV[35],Cnil);
  1347.     {register object V221;
  1348.     V221= (*(LnkLI255))();
  1349. T552:;
  1350.     if(((VV[34]->s.s_dbind))!=Cnil){
  1351.     goto T553;}
  1352.     goto T549;
  1353. T553:;
  1354.     {register object V222;
  1355.     V222= (*(LnkLI13))((V221));
  1356.     {register object V223;
  1357.     V223= (*(LnkLI256))((V222));
  1358.     if(((V223))==Cnil){
  1359.     goto T561;}
  1360.     goto T557;
  1361. T561:;
  1362.     if(((*(LnkLI9))((V222),VV[56]))==Cnil){
  1363.     goto T564;}
  1364.     V217= (*(LnkLI258))();
  1365.     goto T557;
  1366. T564:;
  1367.     base[4]= VV[85];
  1368.     base[5]= (V222);
  1369.     vs_top=(vs_base=base+4)+2;
  1370.     Lerror();
  1371.     vs_top=sup;}}
  1372. T557:;
  1373.     V221= (*(LnkLI255))();
  1374.     goto T552;}
  1375. T549:;
  1376.     {object V224 = (V217);
  1377.     bds_unwind1;
  1378.     bds_unwind1;
  1379.     VMR30(V224)}}}}
  1380. }
  1381. /*    local entry for function THE-TYPE    */
  1382.  
  1383. static object LI31(V227,V228)
  1384.  
  1385. object V227;register object V228;
  1386. {     VMB31 VMS31 VMV31
  1387. TTL:;
  1388.     if(symbol_value(VV[47])==Cnil){
  1389.     goto T572;}
  1390.     V228= Cnil;
  1391. T572:;
  1392.     if((V228)==Cnil){
  1393.     goto T574;}{object V229;
  1394.     base[0]= symbol_value(VV[54]);
  1395.     base[1]= (V228);
  1396.     vs_top=(vs_base=base+0)+2;
  1397.     Lgetf();
  1398.     vs_top=sup;
  1399.     V229= vs_base[0];
  1400.     if(V229==Cnil)goto T576;
  1401.     V228= V229;
  1402.     goto T575;
  1403. T576:;}
  1404.     if((((type_of((V228))==t_symbol&&((V228))->s.s_hpack==keyword_package)?Ct:Cnil))==Cnil){
  1405.     goto T580;}
  1406.     V228= Cnil;
  1407.     goto T575;
  1408. T580:;
  1409. T575:;
  1410. T574:;
  1411.     if(type_of((V228))==t_cons){
  1412.     goto T583;}
  1413.     goto T582;
  1414. T583:;
  1415.     if((car((V228)))==(VV[122])){
  1416.     goto T585;}
  1417.     goto T582;
  1418. T585:;
  1419.     V228= cadr((V228));
  1420. T582:;
  1421.     if(((V228))==Cnil){
  1422.     goto T589;}
  1423.     {object V230 = list(3,VV[123],(V228),(V227));
  1424.     VMR31(V230)}
  1425. T589:;
  1426.     {object V231 = (V227);
  1427.     VMR31(V231)}
  1428. }
  1429. /*    local entry for function TYPE-ERROR    */
  1430.  
  1431. static object LI32()
  1432.  
  1433. {     VMB32 VMS32 VMV32
  1434. TTL:;
  1435.     base[0]= VV[124];
  1436.     vs_top=(vs_base=base+0)+1;
  1437.     Lerror();
  1438.     vs_top=sup;
  1439.     {object V232 = vs_base[0];
  1440.     VMR32(V232)}
  1441. }
  1442. /*    local entry for function MAKE-VALUE    */
  1443.  
  1444. static object LI33(V235,V236)
  1445.  
  1446. register object V235;object V236;
  1447. {     VMB33 VMS33 VMV33
  1448. TTL:;
  1449.     {register object V237;
  1450.     V237= Cnil;
  1451.     if((symbol_value(VV[47]))!=Cnil){
  1452.     goto T594;}
  1453.     if((symbol_value(VV[125]))==Cnil){
  1454.     goto T594;}
  1455.     if(!(((V236))==(VV[126]))){
  1456.     goto T594;}
  1457.     base[0]= symbol_value(VV[54]);
  1458.     base[1]= (V236);
  1459.     vs_top=(vs_base=base+0)+2;
  1460.     Lgetf();
  1461.     vs_top=sup;
  1462.     V237= vs_base[0];
  1463.     if(((V237))==Cnil){
  1464.     goto T594;}
  1465.     if(!(type_of((V237))==t_cons)){
  1466.     goto T608;}
  1467.     if(!((car((V237)))==(VV[122]))){
  1468.     goto T608;}
  1469.     V237= cadr((V237));
  1470.     goto T606;
  1471. T608:;
  1472. T606:;
  1473.     base[0]= (V235);
  1474.     vs_top=(vs_base=base+0)+1;
  1475.     Lconstantp();
  1476.     vs_top=sup;
  1477.     if((vs_base[0])==Cnil){
  1478.     goto T613;}
  1479.     {object V238;
  1480.     if((symbol_value(VV[39]))==Cnil){
  1481.     goto T618;}
  1482.     base[1]= (V235);
  1483.     base[2]= VV[127];
  1484.     base[3]= symbol_value(VV[39]);
  1485.     vs_top=(vs_base=base+1)+3;
  1486.     Lsubst();
  1487.     vs_top=sup;
  1488.     base[0]= vs_base[0];
  1489.     vs_top=(vs_base=base+0)+1;
  1490.     Leval();
  1491.     vs_top=sup;
  1492.     V238= vs_base[0];
  1493.     goto T616;
  1494. T618:;
  1495.     base[0]= (V235);
  1496.     vs_top=(vs_base=base+0)+1;
  1497.     Leval();
  1498.     vs_top=sup;
  1499.     V238= vs_base[0];
  1500. T616:;{object V239;
  1501.     base[0]= (V238);
  1502.     base[1]= (V237);
  1503.     vs_top=(vs_base=base+0)+2;
  1504.     (void) (*Lnk129)();
  1505.     vs_top=sup;
  1506.     V239= vs_base[0];
  1507.     if(V239==Cnil)goto T626;
  1508.     goto T625;
  1509. T626:;}
  1510.     base[0]= VV[128];
  1511.     base[1]= (V235);
  1512.     base[2]= (V237);
  1513.     vs_top=(vs_base=base+0)+3;
  1514.     Lerror();
  1515.     vs_top=sup;
  1516. T625:;
  1517.     {object V240 = make_cons((V235),Cnil);
  1518.     VMR33(V240)}}
  1519. T613:;
  1520.     {register object V241;
  1521.     V241= Cnil;
  1522.     if(!(type_of((V235))!=t_cons)){
  1523.     goto T635;}
  1524.     V242= Cnil;
  1525.     goto T633;
  1526. T635:;
  1527.     vs_base=vs_top;
  1528.     Lgensym();
  1529.     vs_top=sup;
  1530.     V241= vs_base[0];
  1531.     V243= list(2,(V241),(V235));
  1532.     V242= make_cons(/* INLINE-ARGS */V243,Cnil);
  1533. T633:;
  1534.     if((symbol_value(VV[39]))==Cnil){
  1535.     goto T640;}
  1536.     if((V241)!=Cnil){
  1537.     base[0]= (V241);
  1538.     goto T642;}
  1539.     base[0]= (V235);
  1540. T642:;
  1541.     base[1]= VV[127];
  1542.     base[2]= symbol_value(VV[39]);
  1543.     vs_top=(vs_base=base+0)+3;
  1544.     Lsubst();
  1545.     vs_top=sup;
  1546.     V244= vs_base[0];
  1547.     goto T638;
  1548. T640:;
  1549.     if((V241)!=Cnil){
  1550.     V244= (V241);
  1551.     goto T638;}
  1552.     V244= (V235);
  1553. T638:;
  1554.     V245= list(3,VV[80],list(3,VV[129],V244,list(2,VV[10],(V237))),VV[130]);
  1555.     if((V241)!=Cnil){
  1556.     V246= (V241);
  1557.     goto T645;}
  1558.     V246= (V235);
  1559. T645:;
  1560.     V247= list(4,VV[12],V242,/* INLINE-ARGS */V245,V246);
  1561.     {object V248 = make_cons(/* INLINE-ARGS */V247,Cnil);
  1562.     VMR33(V248)}}
  1563. T594:;
  1564.     {object V249 = make_cons((V235),Cnil);
  1565.     VMR33(V249)}}
  1566. }
  1567. /*    local entry for function LOOP-ADD-BINDING    */
  1568.  
  1569. static object LI34(V251,V250,va_alist)
  1570.     object V251,V250;
  1571.     va_dcl 
  1572. {    
  1573.     va_list ap;
  1574.     int narg = VFUN_NARGS; VMB34 VMS34 VMV34
  1575.     {object V252;
  1576.     register object V253;
  1577.     object V254;
  1578.     object V255;
  1579.     object V256;
  1580.     object V257;
  1581.     object V258;
  1582.     if(narg <2) too_few_arguments();
  1583.     V252= V251;
  1584.     V253= V250;
  1585.     narg = narg - 2;
  1586.     if (narg <= 0) goto T646;
  1587.     else {
  1588.     va_start(ap);
  1589.     V254= va_arg(ap,object);}
  1590.     if (--narg <= 0) goto T647;
  1591.     else {
  1592.     V255= va_arg(ap,object);}
  1593.     if (--narg <= 0) goto T648;
  1594.     else {
  1595.     V256= va_arg(ap,object);}
  1596.     if (--narg <= 0) goto T649;
  1597.     else {
  1598.     V257= va_arg(ap,object);}
  1599.     if (--narg <= 0) goto T650;
  1600.     else {
  1601.     V258= va_arg(ap,object);}
  1602.     --narg; goto T651;
  1603. T646:;
  1604.     V254= Ct;
  1605. T647:;
  1606.     V255= Cnil;
  1607. T648:;
  1608.     V256= Cnil;
  1609. T649:;
  1610.     V257= Ct;
  1611. T650:;
  1612.     V258= Cnil;
  1613. T651:;
  1614.     {register object V259;
  1615.     V259= Cnil;
  1616.     if(((V254))!=Cnil){
  1617.     goto T659;}
  1618.     if((symbol_value(VV[46]))!=Cnil){
  1619.     goto T658;}
  1620. T659:;
  1621.     V260= make_cons(Cnil,Cnil);
  1622.     setq(VV[46],make_cons(/* INLINE-ARGS */V260,symbol_value(VV[46])));
  1623. T658:;
  1624.     {register object x= (V252),V261= caar(symbol_value(VV[46]));
  1625.     while(!endp(V261))
  1626.     if(type_of(V261->c.c_car)==t_cons &&eql(x,V261->c.c_car->c.c_car)){
  1627.     V259= (V261->c.c_car);
  1628.     goto T668;
  1629.     }else V261=V261->c.c_cdr;
  1630.     V259= Cnil;}
  1631. T668:;
  1632.     if(((V259))==Cnil){
  1633.     goto T666;}
  1634.     if((V257)==Cnil){
  1635.     goto T664;}
  1636.     {object V263;
  1637.     if((V253)==Cnil){
  1638.     V263= Cnil;
  1639.     goto T669;}
  1640.     V263= (*(LnkLI272))((V253),(V255));
  1641. T669:;
  1642.     if(type_of(V259)!=t_cons)FEwrong_type_argument(Scons,V259);
  1643.     (V259)->c.c_cdr = (V263);
  1644.     goto T664;}
  1645. T666:;
  1646.     {object V264;
  1647.     if((V258)!=Cnil){
  1648.     if(((V258))!=Cnil){
  1649.     goto T672;}
  1650.     goto T673;}
  1651.     base[0]= (V252);
  1652.     vs_top=(vs_base=base+0)+1;
  1653.     Lsymbol_package();
  1654.     vs_top=sup;
  1655.     V265= vs_base[0];
  1656.     if((V265)==Cnil){
  1657.     goto T674;}
  1658.     goto T673;
  1659. T674:;
  1660.     base[0]= (V253);
  1661.     vs_top=(vs_base=base+0)+1;
  1662.     Lconstantp();
  1663.     vs_top=sup;
  1664.     if((vs_base[0])!=Cnil){
  1665.     goto T672;}
  1666. T673:;
  1667.     V264= Cnil;
  1668.     goto T671;
  1669. T672:;
  1670.     {register object V266;
  1671.     register object V267;
  1672.     V266= cdr(symbol_value(VV[46]));
  1673.     V267= car((V266));
  1674. T682:;
  1675.     if(!(endp((V266)))){
  1676.     goto T683;}
  1677.     V264= Cnil;
  1678.     goto T671;
  1679. T683:;
  1680.     {register object x= (V252),V268= car((V267));
  1681.     while(!endp(V268))
  1682.     if(type_of(V268->c.c_car)==t_cons &&eql(x,V268->c.c_car->c.c_car)){
  1683.     V259= (V268->c.c_car);
  1684.     goto T690;
  1685.     }else V268=V268->c.c_cdr;
  1686.     V259= Cnil;}
  1687. T690:;
  1688.     if(((V259))==Cnil){
  1689.     goto T687;}
  1690.     if((V257)==Cnil){
  1691.     goto T691;}
  1692.     {register object V269;
  1693.     register object V270;
  1694.     V269= (V259);
  1695.     if((V253)==Cnil){
  1696.     V270= Cnil;
  1697.     goto T693;}
  1698.     V270= (*(LnkLI272))((V253),(V255));
  1699. T693:;
  1700.     if(type_of((V269))!=t_cons)FEwrong_type_argument(Scons,(V269));
  1701.     ((V269))->c.c_cdr = (V270);}
  1702. T691:;
  1703.     V264= Ct;
  1704.     goto T671;
  1705. T687:;
  1706.     V266= cdr((V266));
  1707.     V267= car((V266));
  1708.     goto T682;}
  1709. T671:;
  1710.     if(((V264))==Cnil){
  1711.     goto T701;}
  1712.     goto T664;
  1713. T701:;
  1714.     {object V271;
  1715.     object V272;
  1716.     V271= symbol_value(VV[46]);
  1717.     if((V253)==Cnil){
  1718.     V273= Cnil;
  1719.     goto T705;}
  1720.     V273= (*(LnkLI272))((V253),(V255));
  1721. T705:;
  1722.     V274= make_cons((V252),V273);
  1723.     V272= make_cons(/* INLINE-ARGS */V274,caar((V271)));
  1724.     if(type_of(car((V271)))!=t_cons)FEwrong_type_argument(Scons,car((V271)));
  1725.     (car((V271)))->c.c_car = (V272);
  1726.     (void)(car((V271)));}}
  1727. T664:;
  1728.     if((V255)==Cnil){
  1729.     goto T707;}
  1730.     (void)((VFUN_NARGS=3,(*(LnkLI273))((V252),(V255),(V256))));
  1731. T707:;
  1732.     {object V275 = (V252);
  1733.     VMR34(V275)}}}
  1734.     }
  1735. /*    local entry for function LOOP-DECLARE-BINDING    */
  1736.  
  1737. static object LI35(V278,V277,V276,va_alist)
  1738.     object V278,V277,V276;
  1739.     va_dcl 
  1740. {    
  1741.     va_list ap;
  1742.     int narg = VFUN_NARGS; VMB35 VMS35 VMV35
  1743.     {register object V279;
  1744.     register object V280;
  1745.     object V281;
  1746.     object V282;
  1747.     if(narg <3) too_few_arguments();
  1748.     V279= V278;
  1749.     V280= V277;
  1750.     V281= V276;
  1751.     narg = narg - 3;
  1752.     if (narg <= 0) goto T708;
  1753.     else {
  1754.     va_start(ap);
  1755.     V282= va_arg(ap,object);}
  1756.     --narg; goto T709;
  1757. T708:;
  1758.     V282= Cnil;
  1759. T709:;
  1760.     {object V283;
  1761.     V283= Cnil;
  1762.     if((V280)==Cnil){
  1763.     goto T713;}
  1764.     {register object x= (V280),V284= symbol_value(VV[131]);
  1765.     while(!endp(V284))
  1766.     if(eql(x,V284->c.c_car)){
  1767.     goto T714;
  1768.     }else V284=V284->c.c_cdr;}
  1769.     goto T713;
  1770. T714:;
  1771.     base[0]= symbol_value(VV[54]);
  1772.     base[1]= (V280);
  1773.     vs_top=(vs_base=base+0)+2;
  1774.     Lgetf();
  1775.     vs_top=sup;
  1776.     V280= vs_base[0];
  1777.     if(((V280))!=Cnil){
  1778.     goto T716;}
  1779.     goto T713;
  1780. T716:;
  1781.     if(symbol_value(VV[132])==Cnil){
  1782.     goto T713;}
  1783.     (void)((VFUN_NARGS=3,(*(LnkLI273))((V279),VV[133],(V281))));
  1784. T713:;
  1785.     if(((V280))==Cnil){
  1786.     goto T721;}
  1787.     if(((V281))!=Cnil){
  1788.     goto T722;}
  1789.     if((symbol_value(VV[47]))!=Cnil){
  1790.     goto T721;}
  1791. T722:;
  1792.     {register object V285;
  1793.     register object V286;
  1794.     V285= symbol_value(VV[46]);
  1795.     V286= car((V285));
  1796. T732:;
  1797.     if(!(endp((V285)))){
  1798.     goto T733;}
  1799.     goto T728;
  1800. T733:;
  1801.     {register object x= (V279),V287= car((V286));
  1802.     while(!endp(V287))
  1803.     if(type_of(V287->c.c_car)==t_cons &&eql(x,V287->c.c_car->c.c_car)){
  1804.     goto T739;
  1805.     }else V287=V287->c.c_cdr;
  1806.     goto T737;}
  1807. T739:;
  1808.     V283= Ct;
  1809.     {register object V288;
  1810.     register object V289;
  1811.     V288= (V286);
  1812.     if(!(type_of((V280))==t_cons)){
  1813.     goto T747;}
  1814.     if(!((car((V280)))==(VV[122]))){
  1815.     goto T747;}
  1816.     base[2]= list(3,VV[122],cadr((V280)),(V279));
  1817.     goto T745;
  1818. T747:;
  1819.     if(((V282))==Cnil){
  1820.     goto T752;}
  1821.     base[2]= list(3,VV[122],(V280),(V279));
  1822.     goto T745;
  1823. T752:;
  1824.     base[2]= list(2,(V280),(V279));
  1825. T745:;
  1826.     base[3]= cdr((V288));
  1827.     base[4]= VV[30];
  1828.     base[5]= VV[113];
  1829.     vs_top=(vs_base=base+2)+4;
  1830.     Ladjoin();
  1831.     vs_top=sup;
  1832.     V289= vs_base[0];
  1833.     if(type_of((V288))!=t_cons)FEwrong_type_argument(Scons,(V288));
  1834.     ((V288))->c.c_cdr = (V289);}
  1835.     goto T728;
  1836. T737:;
  1837.     V285= cdr((V285));
  1838.     V286= car((V285));
  1839.     goto T732;}
  1840. T728:;
  1841.     if((V283)!=Cnil){
  1842.     goto T721;}
  1843.     if(symbol_value(VV[53])!=Cnil){
  1844.     goto T721;}
  1845.     base[0]= VV[134];
  1846.     base[1]= (V279);
  1847.     vs_top=(vs_base=base+0)+2;
  1848.     Lerror();
  1849.     vs_top=sup;
  1850. T721:;
  1851.     {object V290 = (V279);
  1852.     VMR35(V290)}}}
  1853.     }
  1854. /*    local entry for function PARSE-LOOP-DECLARE    */
  1855.  
  1856. static object LI36(va_alist)
  1857.     va_dcl 
  1858. {    
  1859.     va_list ap;
  1860.     int narg = VFUN_NARGS; VMB36 VMS36 VMV36
  1861.     {register object V291;
  1862.     register object V292;
  1863.     narg = narg - 0;
  1864.     if (narg <= 0) goto T765;
  1865.     else {
  1866.     va_start(ap);
  1867.     V291= va_arg(ap,object);}
  1868.     if (--narg <= 0) goto T766;
  1869.     else {
  1870.     V292= va_arg(ap,object);}
  1871.     --narg; goto T767;
  1872. T765:;
  1873.     V291= (*(LnkLI255))();
  1874. T766:;
  1875.     V292= Ct;
  1876. T767:;
  1877.     {object V293;
  1878.     register object V294;
  1879.     V293= car((V291));
  1880.     V294= Cnil;
  1881.     if(!(((V293))==(VV[122]))){
  1882.     goto T771;}
  1883.     V291= cdr((V291));
  1884.     V293= car((V291));
  1885.     V294= Ct;
  1886. T771:;
  1887.     {register object V295;
  1888.     register object V296;
  1889.     V295= cdr((V291));
  1890.     V296= car((V295));
  1891. T782:;
  1892.     if(!(endp((V295)))){
  1893.     goto T783;}
  1894.     {object V297 = Cnil;
  1895.     VMR36(V297)}
  1896. T783:;
  1897.     (void)((VFUN_NARGS=4,(*(LnkLI273))((V296),car((V291)),(V292),(V294))));
  1898.     V295= cdr((V295));
  1899.     V296= car((V295));
  1900.     goto T782;}}}
  1901.     }
  1902. /*    local entry for function LOOP-ADD-TEMPS    */
  1903.  
  1904. static object LI37(V298,va_alist)
  1905.     object V298;
  1906.     va_dcl 
  1907. {    
  1908.     va_list ap;
  1909.     int narg = VFUN_NARGS; VMB37 VMS37 VMV37
  1910.     {register object V299;
  1911.     object V300;
  1912.     object V301;
  1913.     object V302;
  1914.     object V303;
  1915.     if(narg <1) too_few_arguments();
  1916.     V299= V298;
  1917.     narg = narg - 1;
  1918.     if (narg <= 0) goto T793;
  1919.     else {
  1920.     va_start(ap);
  1921.     V300= va_arg(ap,object);}
  1922.     if (--narg <= 0) goto T794;
  1923.     else {
  1924.     V301= va_arg(ap,object);}
  1925.     if (--narg <= 0) goto T795;
  1926.     else {
  1927.     V302= va_arg(ap,object);}
  1928.     if (--narg <= 0) goto T796;
  1929.     else {
  1930.     V303= va_arg(ap,object);}
  1931.     --narg; goto T797;
  1932. T793:;
  1933.     V300= Cnil;
  1934. T794:;
  1935.     V301= Cnil;
  1936. T795:;
  1937.     V302= Cnil;
  1938. T796:;
  1939.     V303= Cnil;
  1940. T797:;
  1941.     {object V304;
  1942.     V304= (((V299))==Cnil?Ct:Cnil);
  1943.     if(((V304))==Cnil){
  1944.     goto T804;}
  1945.     {object V305 = (V304);
  1946.     VMR37(V305)}
  1947. T804:;
  1948.     if(!(type_of((V299))==t_symbol)){
  1949.     goto T807;}
  1950.     {object V306 = (VFUN_NARGS=7,(*(LnkLI267))((V299),(V300),(V302),(V301),Cnil,Ct,(V303)));
  1951.     VMR37(V306)}
  1952. T807:;
  1953.     if(!(type_of((V299))==t_cons||((V299))==Cnil)){
  1954.     goto T810;}
  1955.     (void)((VFUN_NARGS=1,(*(LnkLI268))(car((V299)))));
  1956.     {object V307 = (VFUN_NARGS=1,(*(LnkLI268))(cdr((V299))));
  1957.     VMR37(V307)}
  1958. T810:;
  1959.     {object V308 = Cnil;
  1960.     VMR37(V308)}}}
  1961.     }
  1962. /*    local entry for function ADD-FROM-DATA    */
  1963.  
  1964. static object LI38(V309,va_alist)
  1965.     object V309;
  1966.     va_dcl 
  1967. {    
  1968.     va_list ap;
  1969.     int narg = VFUN_NARGS; VMB38 VMS38 VMV38
  1970.     {register object V310;
  1971.     object V311;
  1972.     if(narg <1) too_few_arguments();
  1973.     V310= V309;
  1974.     narg= narg - 1;
  1975.     va_start(ap);
  1976.     V312 = list_vector(narg,ap);
  1977.     V311= V312;
  1978.     if((V310)!=Cnil){
  1979.     goto T813;}
  1980.     base[0]= VV[135];
  1981.     vs_top=(vs_base=base+0)+1;
  1982.     Lcopy_list();
  1983.     vs_top=sup;
  1984.     V310= vs_base[0];
  1985. T813:;
  1986.     {register object V313;
  1987.     register object V314;
  1988.     V313= (V310);
  1989.     V314= (V311);
  1990. T818:;
  1991.     if(((V314))!=Cnil){
  1992.     goto T819;}
  1993.     goto T816;
  1994. T819:;
  1995.     if((car((V314)))!=Cnil){
  1996.     goto T824;}
  1997.     goto T823;
  1998. T824:;
  1999.     {register object V315;
  2000.     register object V316;
  2001.     V315= (V313);
  2002.     V316= car((V314));
  2003.     if(type_of((V315))!=t_cons)FEwrong_type_argument(Scons,(V315));
  2004.     ((V315))->c.c_car = (V316);}
  2005. T823:;
  2006.     V313= cdr((V313));
  2007.     V314= cdr((V314));
  2008.     goto T818;}
  2009. T816:;
  2010.     {object V317 = (V310);
  2011.     VMR38(V317)}}
  2012.     }
  2013. /*    local entry for function PARSE-LOOP-FOR    */
  2014.  
  2015. static object LI39()
  2016.  
  2017. {     VMB39 VMS39 VMV39
  2018.     bds_check;
  2019. TTL:;
  2020.     {register object V318;
  2021.     register object V319;
  2022.     V318= Cnil;
  2023.     V319= Cnil;
  2024.     {register object V320;
  2025.     object V321;
  2026.     register object V322;
  2027.     V320= (*(LnkLI255))();
  2028.     V321= Cnil;
  2029.     V322= Cnil;
  2030.     {object V323;
  2031.     V323= (*(LnkLI255))();
  2032. T841:;
  2033.     {register object V324;
  2034.     V324= (*(LnkLI13))((V323));
  2035.     if(((*(LnkLI9))((V324),VV[136]))==Cnil){
  2036.     goto T847;}
  2037.     {object V325;
  2038.     base[1]= VV[137];
  2039.     vs_top=(vs_base=base+1)+1;
  2040.     Lgensym();
  2041.     vs_top=sup;
  2042.     V325= vs_base[0];
  2043.     (void)((VFUN_NARGS=4,(*(LnkLI268))((V320),Cnil,VV[138],Ct)));
  2044.     V326= (*(LnkLI255))();
  2045.     (void)((VFUN_NARGS=3,(*(LnkLI267))((V325),/* INLINE-ARGS */V326,Cnil)));
  2046.     V327= list(3,VV[139],(V320),list(2,VV[17],(V325)));
  2047.     setq(VV[49],make_cons(/* INLINE-ARGS */V327,symbol_value(VV[49])));
  2048.     V322= list(3,VV[15],(V325),list(2,VV[18],(V325)));
  2049.     V321= list(2,VV[140],(V325));
  2050.     goto T844;}
  2051. T847:;
  2052.     if(((*(LnkLI9))((V324),VV[141]))==Cnil){
  2053.     goto T859;}
  2054.     {register object V328;
  2055.     if(!(type_of((V320))==t_symbol)){
  2056.     goto T863;}
  2057.     V328= (V320);
  2058.     goto T861;
  2059. T863:;
  2060.     base[1]= VV[142];
  2061.     vs_top=(vs_base=base+1)+1;
  2062.     Lgensym();
  2063.     vs_top=sup;
  2064.     V328= vs_base[0];
  2065. T861:;
  2066.     (void)((VFUN_NARGS=4,(*(LnkLI268))((V320),Cnil,VV[138],Ct)));
  2067.     V329= (*(LnkLI255))();
  2068.     (void)((VFUN_NARGS=3,(*(LnkLI267))((V328),/* INLINE-ARGS */V329,Cnil)));
  2069.     V322= list(3,VV[15],(V328),list(2,VV[18],(V328)));
  2070.     if(eql((V328),(V320))){
  2071.     goto T870;}
  2072.     V330= list(3,VV[139],(V320),(V328));
  2073.     setq(VV[49],make_cons(/* INLINE-ARGS */V330,symbol_value(VV[49])));
  2074. T870:;
  2075.     V321= list(2,VV[140],(V328));
  2076.     goto T844;}
  2077. T859:;
  2078.     if(((*(LnkLI9))((V324),VV[143]))==Cnil){
  2079.     goto T876;}
  2080.     V331= (*(LnkLI255))();
  2081.     V319= (VFUN_NARGS=6,(*(LnkLI274))((V319),(V320),/* INLINE-ARGS */V331,Cnil,Cnil,VV[144]));
  2082.     goto T844;
  2083. T876:;
  2084.     if(((*(LnkLI9))((V324),VV[145]))==Cnil){
  2085.     goto T880;}
  2086.     V332= (*(LnkLI255))();
  2087.     V319= (VFUN_NARGS=6,(*(LnkLI274))((V319),(V320),/* INLINE-ARGS */V332,Cnil,Cnil,VV[146]));
  2088.     goto T844;
  2089. T880:;
  2090.     if(((*(LnkLI9))((V324),VV[147]))==Cnil){
  2091.     goto T884;}
  2092.     V318= (*(LnkLI255))();
  2093.     if(((V319))==Cnil){
  2094.     goto T889;}
  2095.     V319= (VFUN_NARGS=5,(*(LnkLI274))((V319),Cnil,Cnil,Cnil,(V318)));
  2096.     goto T844;
  2097. T889:;
  2098.     bds_bind(VV[148],small_fixnum(4));
  2099.     bds_bind(VV[149],small_fixnum(4));
  2100. T894:;
  2101.     if(!((car(caddr((V322))))==(VV[18]))){
  2102.     goto T895;}
  2103.     bds_unwind1;
  2104.     bds_unwind1;
  2105.     goto T892;
  2106. T895:;
  2107.     base[3]= VV[150];
  2108.     base[4]= VV[151];
  2109.     base[5]= VV[152];
  2110.     vs_top=(vs_base=base+3)+3;
  2111.     Lcerror();
  2112.     vs_top=sup;
  2113.     base[3]= symbol_value(VV[153]);
  2114.     base[4]= VV[154];
  2115.     vs_top=(vs_base=base+3)+2;
  2116.     Lformat();
  2117.     vs_top=sup;
  2118.     goto T894;
  2119. T892:;
  2120.     V333= cadr((V322));
  2121.     if(!(type_of((V318))==t_cons)){
  2122.     goto T911;}
  2123.     {register object x= car((V318)),V335= VV[155];
  2124.     while(!endp(V335))
  2125.     if(eql(x,V335->c.c_car)){
  2126.     goto T914;
  2127.     }else V335=V335->c.c_cdr;
  2128.     goto T911;}
  2129. T914:;
  2130.     V334= list(2,cadr((V318)),cadr((V322)));
  2131.     goto T909;
  2132. T911:;
  2133.     V334= list(3,VV[156],(V318),cadr((V322)));
  2134. T909:;
  2135.     V322= list(3,VV[15],/* INLINE-ARGS */V333,V334);
  2136.     goto T844;
  2137. T884:;
  2138.     if(((*(LnkLI9))((V324),VV[157]))==Cnil){
  2139.     goto T916;}
  2140.     V336= (*(LnkLI255))();
  2141.     V319= (VFUN_NARGS=6,(*(LnkLI274))((V319),(V320),Cnil,/* INLINE-ARGS */V336,Cnil,VV[144]));
  2142.     goto T844;
  2143. T916:;
  2144.     if(((*(LnkLI9))((V324),VV[158]))==Cnil){
  2145.     goto T920;}
  2146.     V337= (*(LnkLI255))();
  2147.     V319= (VFUN_NARGS=6,(*(LnkLI274))((V319),(V320),Cnil,/* INLINE-ARGS */V337,Cnil,VV[146]));
  2148.     goto T844;
  2149. T920:;
  2150.     if(((*(LnkLI9))((V324),VV[159]))==Cnil){
  2151.     goto T924;}
  2152.     V338= (*(LnkLI255))();
  2153.     V319= (VFUN_NARGS=7,(*(LnkLI274))((V319),(V320),Cnil,/* INLINE-ARGS */V338,Cnil,Cnil,Ct));
  2154.     goto T844;
  2155. T924:;
  2156.     if(!(type_of((V324))==t_symbol)){
  2157.     goto T928;}
  2158.     if((get((V324),VV[160],Cnil))==Cnil){
  2159.     goto T928;}
  2160.     V339= (*(LnkLI13))((V323));
  2161.     (void)((VFUN_NARGS=3,(*(LnkLI265))(/* INLINE-ARGS */V339,VV[160],(V320))));
  2162.     goto T838;
  2163. T928:;
  2164.     if(!(type_of((V324))==t_symbol)){
  2165.     goto T934;}
  2166.     if((get((V324),VV[161],Cnil))==Cnil){
  2167.     goto T934;}
  2168.     V340= (*(LnkLI13))((V323));
  2169.     (void)((*(LnkLI275))(/* INLINE-ARGS */V340,(V320)));
  2170.     goto T838;
  2171. T934:;
  2172.     (void)((*(LnkLI266))());
  2173.     goto T838;}
  2174. T844:;
  2175.     V323= (*(LnkLI255))();
  2176.     goto T841;}
  2177. T838:;
  2178.     if(((V319))==Cnil){
  2179.     goto T943;}
  2180.     {object V341;
  2181.     object V342;
  2182.     object V343;
  2183.     object V344;
  2184.     object V345;
  2185.     object V346;
  2186.     V341= car(cddddr((V319)));
  2187.     V342= cadr(cddddr((V319)));
  2188.     V343= car((V319));
  2189.     V344= caddr((V319));
  2190.     V345= cadddr((V319));
  2191.     V346= Cnil;
  2192.     (void)((VFUN_NARGS=4,(*(LnkLI267))((V343),cadr((V319)),Ct,VV[126])));
  2193.     base[1]= (V345);
  2194.     vs_top=(vs_base=base+1)+1;
  2195.     Lconstantp();
  2196.     vs_top=sup;
  2197.     if((vs_base[0])==Cnil){
  2198.     goto T953;}
  2199.     goto T952;
  2200. T953:;
  2201.     setq(VV[47],Ct);
  2202. T952:;
  2203.     V347= list(3,(V341),(V343),(V345));
  2204.     V322= list(3,VV[15],(V343),(*(LnkLI276))(/* INLINE-ARGS */V347,VV[126]));
  2205.     if(((V344))==Cnil){
  2206.     goto T960;}
  2207.     {object V348;
  2208.     base[2]= VV[162];
  2209.     vs_top=(vs_base=base+2)+1;
  2210.     Lgensym();
  2211.     vs_top=sup;
  2212.     V348= vs_base[0];
  2213.     if(!(eql((V345),small_fixnum(1)))){
  2214.     goto T966;}
  2215.     if((cadr(cddddr((V319))))!=Cnil){
  2216.     goto T966;}
  2217.     base[1]= Cnil;
  2218.     goto T964;
  2219. T966:;
  2220.     base[1]= list(3,(V341),VV[127],(V345));
  2221. T964:;
  2222.     bds_bind(VV[39],base[1]);
  2223.     (void)((VFUN_NARGS=6,(*(LnkLI267))((V348),(V344),Cnil,VV[126],Cnil,Cnil)));
  2224.     if(((V342))==Cnil){
  2225.     goto T974;}
  2226.     if(!(((V341))==(VV[144]))){
  2227.     goto T977;}
  2228.     V349= VV[163];
  2229.     goto T972;
  2230. T977:;
  2231.     V349= VV[164];
  2232.     goto T972;
  2233. T974:;
  2234.     if(!(((V341))==(VV[144]))){
  2235.     goto T980;}
  2236.     V349= VV[165];
  2237.     goto T972;
  2238. T980:;
  2239.     V349= VV[166];
  2240. T972:;
  2241.     V321= list(3,V349,(V343),(V348));
  2242.     bds_unwind1;
  2243.     goto T943;}
  2244. T960:;
  2245.     if((symbol_value(VV[47]))!=Cnil){
  2246.     goto T943;}
  2247.     if((symbol_value(VV[125]))==Cnil){
  2248.     goto T943;}
  2249.     base[1]= symbol_value(VV[54]);
  2250.     base[2]= VV[126];
  2251.     vs_top=(vs_base=base+1)+2;
  2252.     Lgetf();
  2253.     vs_top=sup;
  2254.     V346= vs_base[0];
  2255.     if(((V346))==Cnil){
  2256.     goto T943;}
  2257.     if(!(type_of((V346))==t_cons)){
  2258.     goto T993;}
  2259.     if(!((car((V346)))==(VV[122]))){
  2260.     goto T993;}
  2261.     V346= cadr((V346));
  2262. T993:;
  2263.     base[1]= (V346);
  2264.     base[2]= VV[167];
  2265.     vs_top=(vs_base=base+1)+2;
  2266.     (void) (*Lnk277)();
  2267.     vs_top=sup;
  2268.     if((vs_base[0])==Cnil){
  2269.     goto T943;}
  2270.     base[1]= (V345);
  2271.     vs_top=(vs_base=base+1)+1;
  2272.     Lconstantp();
  2273.     vs_top=sup;
  2274.     if((vs_base[0])==Cnil){
  2275.     goto T1002;}
  2276.     goto T1001;
  2277. T1002:;
  2278.     base[1]= VV[168];
  2279.     vs_top=(vs_base=base+1)+1;
  2280.     Lerror();
  2281.     vs_top=sup;
  2282. T1001:;
  2283.     if(!(((V341))==(VV[144]))){
  2284.     goto T1009;}
  2285.     if((V345)!=Cnil){
  2286.     V351= (V345);
  2287.     goto T1011;}
  2288.     V351= small_fixnum(1);
  2289. T1011:;
  2290.     V350= list(3,VV[164],(V343),number_minus(VV[169],V351));
  2291.     goto T1007;
  2292. T1009:;
  2293.     if((V345)!=Cnil){
  2294.     V352= (V345);
  2295.     goto T1012;}
  2296.     V352= small_fixnum(1);
  2297. T1012:;
  2298.     V350= list(3,VV[163],(V343),number_plus(VV[170],V352));
  2299. T1007:;
  2300.     V353= list(3,VV[80],V350,VV[171]);
  2301.     setq(VV[42],make_cons(/* INLINE-ARGS */V353,symbol_value(VV[42])));}
  2302. T943:;
  2303.     if((V321)==Cnil){
  2304.     goto T1013;}
  2305.     base[1]= list(3,VV[5],(V321),VV[172]);
  2306.     vs_top=(vs_base=base+1)+1;
  2307.     Lcopy_tree();
  2308.     vs_top=sup;
  2309.     V354= vs_base[0];
  2310.     setq(VV[41],make_cons(V354,symbol_value(VV[41])));
  2311. T1013:;
  2312.     if((V322)==Cnil){
  2313.     {object V355 = Cnil;
  2314.     VMR39(V355)}}
  2315.     setq(VV[42],make_cons((V322),symbol_value(VV[42])));
  2316.     {object V356 = symbol_value(VV[42]);
  2317.     VMR39(V356)}}}
  2318. }
  2319. /*    local entry for function PARSE-LOOP-MACRO    */
  2320.  
  2321. static object LI40(V358,V357,va_alist)
  2322.     object V358,V357;
  2323.     va_dcl 
  2324. {    
  2325.     va_list ap;
  2326.     int narg = VFUN_NARGS; VMB40 VMS40 VMV40
  2327.     {object V359;
  2328.     object V360;
  2329.     object V361;
  2330.     if(narg <2) too_few_arguments();
  2331.     V359= V358;
  2332.     V360= V357;
  2333.     narg = narg - 2;
  2334.     if (narg <= 0) goto T1018;
  2335.     else {
  2336.     va_start(ap);
  2337.     V361= va_arg(ap,object);}
  2338.     --narg; goto T1019;
  2339. T1018:;
  2340.     V361= Cnil;
  2341. T1019:;
  2342.     {register object V362;
  2343.     V362= Cnil;
  2344.     {object V363;
  2345.     object V364;
  2346.     V363= get((V359),(V360),Cnil);
  2347.     V364= Cnil;
  2348.     {object V365= (V360);
  2349.     if((V365!= VV[160]))goto T1025;
  2350.     {object V366;
  2351.     V366= get((V359),VV[173],Cnil);{object V367;
  2352.     V367= cdr((V366));
  2353.     if(V367==Cnil)goto T1028;
  2354.     goto T1027;
  2355. T1028:;}
  2356.     base[0]= VV[174];
  2357.     vs_top=(vs_base=base+0)+1;
  2358.     Lerror();
  2359.     vs_top=sup;
  2360. T1027:;
  2361.     V364= cdr((V366));
  2362.     goto T1024;}
  2363. T1025:;
  2364.     if((V365!= VV[92]))goto T1031;
  2365.     V364= get((V359),VV[175],Cnil);
  2366.     goto T1024;
  2367. T1031:;
  2368.     FEerror("The ECASE key value ~s is illegal.",1,V365);}
  2369. T1024:;
  2370.     {object V368;
  2371.     {register object x= VV[176],V369= (V364);
  2372.     while(!endp(V369))
  2373.     if(eql(x,V369->c.c_car)){
  2374.     goto T1035;
  2375.     }else V369=V369->c.c_cdr;
  2376.     goto T1034;}
  2377. T1035:;
  2378.     {object V370;
  2379.     V370= symbol_value(VV[34]);
  2380.     setq(VV[34],Cnil);
  2381.     V368= (V370);
  2382.     goto T1032;}
  2383. T1034:;
  2384.     {register object V371;
  2385.     register object V372;
  2386.     V371= make_fixnum(length((V364)));
  2387.     V372= small_fixnum(0);
  2388. T1041:;
  2389.     if(!(number_compare((V372),(V371))>=0)){
  2390.     goto T1042;}
  2391.     V368= nreverse((V362));
  2392.     goto T1032;
  2393. T1042:;
  2394.     V362= make_cons(car(symbol_value(VV[34])),(V362));
  2395.     setq(VV[34],cdr(symbol_value(VV[34])));
  2396.     V372= one_plus((V372));
  2397.     goto T1041;}
  2398. T1032:;
  2399.     {object V374= (V360);
  2400.     if((V374!= VV[160]))goto T1055;
  2401.     base[0]= (V363);
  2402.     base[1]= (V361);
  2403.     {object V375;
  2404.     V375= (V368);
  2405.      vs_top=base+2;
  2406.      while(!endp(V375))
  2407.      {vs_push(car(V375));V375=cdr(V375);}
  2408.     vs_base=base+1;}
  2409.     super_funcall_no_event(base[0]);
  2410.     vs_top=sup;
  2411.     V373= vs_base[0];
  2412.     goto T1054;
  2413. T1055:;
  2414.     if((V374!= VV[92]))goto T1059;
  2415.     base[0]= (V363);
  2416.     {object V376;
  2417.     V376= (V368);
  2418.      vs_top=base+1;
  2419.      while(!endp(V376))
  2420.      {vs_push(car(V376));V376=cdr(V376);}
  2421.     vs_base=base+1;}
  2422.     super_funcall_no_event(base[0]);
  2423.     vs_top=sup;
  2424.     V373= vs_base[0];
  2425.     goto T1054;
  2426. T1059:;
  2427.     V373= Cnil;}
  2428. T1054:;
  2429.     setq(VV[34],append(V373,symbol_value(VV[34])));
  2430.     {object V377 = symbol_value(VV[34]);
  2431.     VMR40(V377)}}}}}
  2432.     }
  2433. /*    local entry for function PARSE-LOOP-MAP    */
  2434.  
  2435. static object LI41(V380,V381)
  2436.  
  2437. object V380;object V381;
  2438. {     VMB41 VMS41 VMV41
  2439. TTL:;
  2440.     if(symbol_value(VV[53])==Cnil){
  2441.     goto T1062;}
  2442.     base[0]= VV[177];
  2443.     vs_top=(vs_base=base+0)+1;
  2444.     Lerror();
  2445.     vs_top=sup;
  2446. T1062:;
  2447.     {object V382;
  2448.     object V383;
  2449.     V382= get((V380),VV[161],Cnil);
  2450.     V383= get((V380),VV[178],Cnil);
  2451.     if((V383)!=Cnil){
  2452.     goto T1066;}
  2453.     base[0]= VV[179];
  2454.     vs_top=(vs_base=base+0)+1;
  2455.     Lerror();
  2456.     vs_top=sup;
  2457. T1066:;
  2458.     {register object x= VV[176],V384= (V383);
  2459.     while(!endp(V384))
  2460.     if(eql(x,V384->c.c_car)){
  2461.     goto T1070;
  2462.     }else V384=V384->c.c_cdr;
  2463.     goto T1068;}
  2464. T1070:;
  2465.     base[0]= VV[180];
  2466.     vs_top=(vs_base=base+0)+1;
  2467.     Lerror();
  2468.     vs_top=sup;
  2469. T1068:;
  2470.     {register object V385;
  2471.     object V386;
  2472.     V385= Cnil;
  2473.     {register object V387;
  2474.     register object V388;
  2475.     V389 = make_fixnum(length((V383)));
  2476.     V387= one_minus(V389);
  2477.     V388= small_fixnum(0);
  2478. T1077:;
  2479.     if(!(number_compare((V388),(V387))>=0)){
  2480.     goto T1078;}
  2481.     V386= nreverse((V385));
  2482.     goto T1073;
  2483. T1078:;
  2484.     V385= make_cons(car(symbol_value(VV[34])),(V385));
  2485.     setq(VV[34],cdr(symbol_value(VV[34])));
  2486.     V388= one_plus((V388));
  2487.     goto T1077;}
  2488. T1073:;
  2489.     {register object V390;
  2490.     register object V391;
  2491.     V390= (*(LnkLI255))();
  2492.     V391= Cnil;
  2493. T1093:;
  2494.     if(((*(LnkLI9))((V390),VV[77]))!=Cnil){
  2495.     goto T1094;}
  2496.     (void)((*(LnkLI266))());
  2497.     if((V391)==Cnil){
  2498.     setq(VV[44],Cnil);
  2499.     goto T1090;}
  2500.     setq(VV[44],make_cons(VV[77],(V391)));
  2501.     goto T1090;
  2502. T1094:;
  2503.     V392= (*(LnkLI255))();
  2504.     V391= make_cons(/* INLINE-ARGS */V392,(V391));
  2505.     V390= (*(LnkLI255))();
  2506.     goto T1093;}
  2507. T1090:;
  2508.     base[1]= (V382);
  2509.     base[2]= (V381);
  2510.     {object V393;
  2511.     V393= (V386);
  2512.      vs_top=base+3;
  2513.      while(!endp(V393))
  2514.      {vs_push(car(V393));V393=cdr(V393);}
  2515.     vs_base=base+2;}
  2516.     super_funcall_no_event(base[1]);
  2517.     vs_top=sup;
  2518.     setq(VV[53],vs_base[0]);
  2519.     {object V394 = Cnil;
  2520.     VMR41(V394)}}}
  2521. }
  2522. /*    local entry for function SUBSTITUTE-SLOOP-BODY    */
  2523.  
  2524. static object LI42(V396)
  2525.  
  2526. register object V396;
  2527. {     VMB42 VMS42 VMV42
  2528. TTL:;
  2529.     if((symbol_value(VV[53]))==Cnil){
  2530.     goto T1109;}
  2531.     base[0]= make_cons(VV[16],(V396));
  2532.     base[1]= VV[181];
  2533.     base[2]= symbol_value(VV[53]);
  2534.     vs_top=(vs_base=base+0)+3;
  2535.     Lsubst();
  2536.     vs_top=sup;
  2537.     V397= vs_base[0];
  2538.     V396= make_cons(V397,Cnil);
  2539.     if(symbol_value(VV[44])==Cnil){
  2540.     goto T1109;}
  2541.     base[0]= symbol_value(VV[44]);
  2542.     base[1]= VV[182];
  2543.     base[2]= (V396);
  2544.     vs_top=(vs_base=base+0)+3;
  2545.     Lsubst();
  2546.     vs_top=sup;
  2547.     V396= vs_base[0];
  2548. T1109:;
  2549.     {object V398 = (V396);
  2550.     VMR42(V398)}
  2551. }
  2552. /*    local entry for function DEF-LOOP-INTERNAL    */
  2553.  
  2554. static object LI43(V402,V401,V400,V399,va_alist)
  2555.     object V402,V401,V400,V399;
  2556.     va_dcl 
  2557. {    
  2558.     va_list ap;
  2559.     int narg = VFUN_NARGS; VMB43 VMS43 VMV43
  2560.     bds_check;
  2561.     {register object V403;
  2562.     register object V404;
  2563.     object V405;
  2564.     object V406;
  2565.     object V407;
  2566.     object V408;
  2567.     object V409;
  2568.     if(narg <4) too_few_arguments();
  2569.     V403= V402;
  2570.     V404= V401;
  2571.     V405= V400;
  2572.     V406= V399;
  2573.     narg = narg - 4;
  2574.     if (narg <= 0) goto T1122;
  2575.     else {
  2576.     va_start(ap);
  2577.     V407= va_arg(ap,object);}
  2578.     if (--narg <= 0) goto T1123;
  2579.     else {
  2580.     V408= va_arg(ap,object);}
  2581.     if (--narg <= 0) goto T1124;
  2582.     else {
  2583.     V409= va_arg(ap,object);}
  2584.     --narg; goto T1125;
  2585. T1122:;
  2586.     V407= Cnil;
  2587. T1123:;
  2588.     V408= Cnil;
  2589. T1124:;
  2590.     V409= Cnil;
  2591. T1125:;
  2592.     {object V410;
  2593.     bds_bind(VV[184],VV[183]);
  2594.     base[3]= Cnil;
  2595.     base[4]= VV[185];
  2596.     base[5]= (V403);
  2597.     base[6]= (V406);
  2598.     vs_top=(vs_base=base+3)+4;
  2599.     Lformat();
  2600.     vs_top=sup;
  2601.     base[2]= vs_base[0];
  2602.     vs_top=(vs_base=base+2)+1;
  2603.     Lintern();
  2604.     vs_top=sup;
  2605.     V410= vs_base[0];
  2606.     if((V408)==Cnil){
  2607.     goto T1135;}
  2608.     V411 = make_fixnum(length((V404)));
  2609.     if(!(number_compare(V411,(V408))>=0)){
  2610.     goto T1136;}
  2611.     goto T1135;
  2612. T1136:;
  2613.     base[2]= VV[186];
  2614.     vs_top=(vs_base=base+2)+1;
  2615.     Lerror();
  2616.     vs_top=sup;
  2617. T1135:;
  2618.     if((V409)==Cnil){
  2619.     goto T1139;}
  2620.     V412 = make_fixnum(length((V404)));
  2621.     if(!(number_compare(V412,(V409))<=0)){
  2622.     goto T1140;}
  2623.     goto T1139;
  2624. T1140:;
  2625.     base[2]= VV[187];
  2626.     vs_top=(vs_base=base+2)+1;
  2627.     Lerror();
  2628.     vs_top=sup;
  2629. T1139:;
  2630.     V413= listA(4,VV[190],(V410),(V404),(V405));
  2631.     if((V407)==Cnil){
  2632.     V414= Cnil;
  2633.     goto T1143;}
  2634.     V415= list(3,VV[191],list(2,VV[10],(V403)),(V407));
  2635.     V414= make_cons(/* INLINE-ARGS */V415,Cnil);
  2636. T1143:;
  2637.     V416= list(2,VV[10],(V403));
  2638.     base[3]= Cnil;
  2639.     base[4]= VV[192];
  2640.     base[5]= (V406);
  2641.     vs_top=(vs_base=base+3)+3;
  2642.     Lformat();
  2643.     vs_top=sup;
  2644.     base[2]= vs_base[0];
  2645.     base[4]= VV[193];
  2646.     vs_top=(vs_base=base+4)+1;
  2647.     Lfind_package();
  2648.     vs_top=sup;
  2649.     base[3]= vs_base[0];
  2650.     vs_top=(vs_base=base+2)+2;
  2651.     Lintern();
  2652.     vs_top=sup;
  2653.     V417= vs_base[0];
  2654.     V418= list(3,VV[7],/* INLINE-ARGS */V416,V417);
  2655.     V419= list(3,VV[15],/* INLINE-ARGS */V418,list(2,VV[10],(V410)));
  2656.     V420= list(2,VV[10],(V403));
  2657.     base[3]= Cnil;
  2658.     base[4]= VV[194];
  2659.     base[5]= (V406);
  2660.     vs_top=(vs_base=base+3)+3;
  2661.     Lformat();
  2662.     vs_top=sup;
  2663.     base[2]= vs_base[0];
  2664.     base[4]= VV[193];
  2665.     vs_top=(vs_base=base+4)+1;
  2666.     Lfind_package();
  2667.     vs_top=sup;
  2668.     base[3]= vs_base[0];
  2669.     vs_top=(vs_base=base+2)+2;
  2670.     Lintern();
  2671.     vs_top=sup;
  2672.     V421= vs_base[0];
  2673.     V422= list(3,VV[7],/* INLINE-ARGS */V420,V421);
  2674.     V423= list(2,/* INLINE-ARGS */V419,list(3,VV[15],/* INLINE-ARGS */V422,list(2,VV[10],(V404))));
  2675.     {object V424 = listA(4,VV[188],VV[189],/* INLINE-ARGS */V413,append(V414,/* INLINE-ARGS */V423));
  2676.     bds_unwind1;
  2677.     VMR43(V424)}}}
  2678.     }
  2679. /*    local entry for function SUM-SLOOP-COLLECT    */
  2680.  
  2681. static object LI44(V427,V428)
  2682.  
  2683. object V427;object V428;
  2684. {     VMB44 VMS44 VMV44
  2685. TTL:;
  2686.     V429= list(3,VV[195],(V427),small_fixnum(0));
  2687.     {object V430 = list(4,VV[97],/* INLINE-ARGS */V429,VV[56],list(3,VV[195],(V427),list(3,VV[144],(V427),(V428))));
  2688.     VMR44(V430)}
  2689. }
  2690. /*    local entry for function LOGXOR-SLOOP-COLLECT    */
  2691.  
  2692. static object LI45(V433,V434)
  2693.  
  2694. register object V433;object V434;
  2695. {     VMB45 VMS45 VMV45
  2696. TTL:;
  2697.     V435= list(3,VV[15],(V433),small_fixnum(0));
  2698.     V436= list(3,VV[15],(V433),list(3,VV[196],(V433),(V434)));
  2699.     {object V437 = list(6,VV[97],/* INLINE-ARGS */V435,VV[56],/* INLINE-ARGS */V436,VV[77],list(3,VV[167],(V433),(V434)));
  2700.     VMR45(V437)}
  2701. }
  2702. /*    local entry for function MAXIMIZE-SLOOP-COLLECT    */
  2703.  
  2704. static object LI46(V440,V441)
  2705.  
  2706. register object V440;object V441;
  2707. {     VMB46 VMS46 VMV46
  2708. TTL:;
  2709.     V442= list(3,VV[195],(V440),Cnil);
  2710.     V443= list(3,VV[15],(V440),list(3,VV[198],(V440),(V441)));
  2711.     {object V444 = list(4,VV[97],/* INLINE-ARGS */V442,VV[56],list(4,VV[197],(V440),/* INLINE-ARGS */V443,list(3,VV[15],(V440),(V441))));
  2712.     VMR46(V444)}
  2713. }
  2714. /*    local entry for function MINIMIZE-SLOOP-COLLECT    */
  2715.  
  2716. static object LI47(V447,V448)
  2717.  
  2718. register object V447;object V448;
  2719. {     VMB47 VMS47 VMV47
  2720. TTL:;
  2721.     V449= list(3,VV[195],(V447),Cnil);
  2722.     V450= list(3,VV[15],(V447),list(3,VV[199],(V447),(V448)));
  2723.     {object V451 = list(4,VV[97],/* INLINE-ARGS */V449,VV[56],list(4,VV[197],(V447),/* INLINE-ARGS */V450,list(3,VV[15],(V447),(V448))));
  2724.     VMR47(V451)}
  2725. }
  2726. /*    local entry for function COUNT-SLOOP-COLLECT    */
  2727.  
  2728. static object LI48(V454,V455)
  2729.  
  2730. object V454;object V455;
  2731. {     VMB48 VMS48 VMV48
  2732. TTL:;
  2733.     V456= list(3,VV[195],(V454),small_fixnum(0));
  2734.     {object V457 = list(4,VV[97],/* INLINE-ARGS */V456,VV[56],list(3,VV[5],(V455),list(3,VV[15],(V454),list(2,VV[200],(V454)))));
  2735.     VMR48(V457)}
  2736. }
  2737. /*    local entry for function THEREIS-SLOOP-COLLECT    */
  2738.  
  2739. static object LI49(V460,V461)
  2740.  
  2741. object V460;object V461;
  2742. {     VMB49 VMS49 VMV49
  2743. TTL:;
  2744.     {object V462 = list(2,VV[56],list(3,VV[197],(V461),list(2,VV[59],(V461))));
  2745.     VMR49(V462)}
  2746. }
  2747. /*    local entry for function ALWAYS-SLOOP-COLLECT    */
  2748.  
  2749. static object LI50(V465,V466)
  2750.  
  2751. object V465;object V466;
  2752. {     VMB50 VMS50 VMV50
  2753. TTL:;
  2754.     V467= list(3,VV[195],(V465),Ct);
  2755.     {object V468 = list(4,VV[97],/* INLINE-ARGS */V467,VV[56],list(3,VV[5],list(2,VV[140],(V466)),VV[201]));
  2756.     VMR50(V468)}
  2757. }
  2758. /*    local entry for function NEVER-SLOOP-COLLECT    */
  2759.  
  2760. static object LI51(V471,V472)
  2761.  
  2762. object V471;object V472;
  2763. {     VMB51 VMS51 VMV51
  2764. TTL:;
  2765.     V473= list(3,VV[195],(V471),Ct);
  2766.     {object V474 = list(4,VV[97],/* INLINE-ARGS */V473,VV[56],list(3,VV[5],(V472),VV[202]));
  2767.     VMR51(V474)}
  2768. }
  2769. /*    local entry for function AVERAGING-SLOOP-MACRO    */
  2770.  
  2771. static object LI52(V476)
  2772.  
  2773. object V476;
  2774. {     VMB52 VMS52 VMV52
  2775. TTL:;
  2776.     base[0]= VV[91];
  2777.     base[1]= VV[203];
  2778.     base[2]= VV[94];
  2779.     base[3]= VV[204];
  2780.     base[4]= VV[5];
  2781.     base[5]= VV[91];
  2782.     base[6]= VV[205];
  2783.     base[7]= VV[94];
  2784.     base[8]= small_fixnum(0);
  2785.     base[9]= VV[77];
  2786.     base[10]= VV[206];
  2787.     base[11]= VV[77];
  2788.     base[12]= VV[207];
  2789.     base[13]= VV[56];
  2790.     base[14]= list(3,VV[15],VV[203],list(3,VV[208],list(3,VV[144],VV[209],(V476)),VV[210]));
  2791.     base[15]= VV[211];
  2792.     vs_top=(vs_base=base+0)+16;
  2793.     LlistA();
  2794.     vs_top=sup;
  2795.     {object V477 = vs_base[0];
  2796.     VMR52(V477)}
  2797. }
  2798. /*    local entry for function REPEAT-SLOOP-MACRO    */
  2799.  
  2800. static object LI53(V479)
  2801.  
  2802. object V479;
  2803. {     VMB53 VMS53 VMV53
  2804. TTL:;
  2805.     {object V480;
  2806.     vs_base=vs_top;
  2807.     Lgensym();
  2808.     vs_top=sup;
  2809.     V480= vs_base[0];
  2810.     {object V481 = list(4,VV[25],(V480),VV[157],(V479));
  2811.     VMR53(V481)}}
  2812. }
  2813. /*    local entry for function RETURN-SLOOP-MACRO    */
  2814.  
  2815. static object LI54(V483)
  2816.  
  2817. register object V483;
  2818. {     VMB54 VMS54 VMV54
  2819. TTL:;
  2820.     if(!(type_of((V483))==t_cons)){
  2821.     goto T1177;}
  2822.     if(!((car((V483)))==(VV[21]))){
  2823.     goto T1177;}
  2824.     V484= cdr((V483));
  2825.     goto T1175;
  2826. T1177:;
  2827.     V484= make_cons((V483),Cnil);
  2828. T1175:;
  2829.     {object V485 = list(2,VV[56],make_cons(VV[59],V484));
  2830.     VMR54(V485)}
  2831. }
  2832. /*    local entry for function IN-TABLE-SLOOP-MAP    */
  2833.  
  2834. static object LI55(V488,V489)
  2835.  
  2836. object V488;object V489;
  2837. {     VMB55 VMS55 VMV55
  2838. TTL:;
  2839.     {object V490 = list(3,VV[212],list(2,VV[213],listA(3,VV[214],(V488),VV[215])),(V489));
  2840.     VMR55(V490)}
  2841. }
  2842. /*    local entry for function IN-PACKAGE-SLOOP-MAP    */
  2843.  
  2844. static object LI56(V493,V494)
  2845.  
  2846. object V493;object V494;
  2847. {     VMB56 VMS56 VMV56
  2848. TTL:;
  2849.     {object V495 = list(3,VV[216],list(2,(V493),list(2,VV[217],(V494))),VV[181]);
  2850.     VMR56(V495)}
  2851. }
  2852. /*    local entry for function IN-ARRAY-SLOOP-FOR    */
  2853.  
  2854. static object LI57(V497,V496,va_alist)
  2855.     object V497,V496;
  2856.     va_dcl 
  2857. {    
  2858.     va_list ap;
  2859.     int narg = VFUN_NARGS; VMB57 VMS57 VMV57
  2860.     {object V498;
  2861.     object V499;
  2862.     register object V500;
  2863.     if(narg <2) too_few_arguments();
  2864.     V498= V497;
  2865.     V499= V496;
  2866.     narg= narg - 2;
  2867.     va_start(ap);
  2868.     V501 = list_vector(narg,ap);
  2869.     V500= V501;
  2870.     {object V502;
  2871.     object V503;
  2872.     object V504;
  2873.     V502= Cnil;
  2874.     V503= Cnil;
  2875.     V504= Cnil;
  2876.     if(!(type_of((V498))==t_cons||((V498))==Cnil)){
  2877.     goto T1183;}
  2878.     V502= car((V498));
  2879.     V503= cadr((V498));
  2880.     goto T1181;
  2881. T1183:;
  2882.     V502= (V498);
  2883.     base[0]= VV[218];
  2884.     vs_top=(vs_base=base+0)+1;
  2885.     Lgensym();
  2886.     vs_top=sup;
  2887.     V503= vs_base[0];
  2888. T1181:;
  2889.     {object V505;
  2890.     {register object V506;
  2891.     register object V507;
  2892.     V506= (V500);
  2893.     V507= Cnil;
  2894. T1194:;
  2895.     {register object V508;
  2896.     V508= (*(LnkLI13))(car((V506)));
  2897.     {register object V509;
  2898.     V509= (*(LnkLI9))((V508),VV[219]);
  2899.     if(((V509))==Cnil){
  2900.     goto T1201;}
  2901.     goto T1197;
  2902. T1201:;
  2903.     if(((*(LnkLI9))((V508),VV[220]))==Cnil){
  2904.     goto T1204;}
  2905.     V504= Ct;
  2906.     goto T1197;
  2907. T1204:;
  2908.     {register object V510;
  2909.     V510= (*(LnkLI9))((V508),VV[147]);
  2910.     if(((V510))==Cnil){
  2911.     goto T1209;}
  2912.     goto T1197;
  2913. T1209:;
  2914.     base[0]= (V506);
  2915.     vs_top=(vs_base=base+0)+1;
  2916.     Lcopy_list();
  2917.     vs_top=sup;
  2918.     V500= vs_base[0];
  2919.     V505= nreverse((V507));
  2920.     goto T1192;}}}
  2921. T1197:;
  2922.     V507= make_cons(car((V506)),(V507));
  2923.     V507= make_cons(cadr((V506)),(V507));
  2924.     V506= cddr((V506));
  2925.     goto T1194;}
  2926. T1192:;
  2927.     if((V504)!=Cnil){
  2928.     goto T1221;}
  2929.     V511= list(2,VV[157],list(2,VV[221],(V499)));
  2930.     V505= nconc(/* INLINE-ARGS */V511,(V505));
  2931. T1221:;
  2932.     V512= listA(5,VV[87],(V502),VV[56],list(3,VV[15],(V502),list(3,VV[222],(V499),(V503))),(V500));
  2933.     {object V513 = listA(3,VV[25],(V503),append((V505),/* INLINE-ARGS */V512));
  2934.     VMR57(V513)}}}}
  2935.     }
  2936. /*    local entry for function =-SLOOP-FOR    */
  2937.  
  2938. static object LI58(V516,V517)
  2939.  
  2940. register object V516;object V517;
  2941. {     VMB58 VMS58 VMV58
  2942. TTL:;
  2943.     {object V518;
  2944.     V519= (*(LnkLI254))();
  2945.     V518= (*(LnkLI13))(/* INLINE-ARGS */V519);
  2946.     if(((*(LnkLI9))((V518),VV[223]))==Cnil){
  2947.     goto T1225;}
  2948.     (void)((*(LnkLI255))());
  2949.     V520= list(3,VV[139],(V516),(V517));
  2950.     {object V521 = list(6,VV[87],(V516),VV[97],/* INLINE-ARGS */V520,VV[89],list(3,VV[139],(V516),(*(LnkLI255))()));
  2951.     VMR58(V521)}
  2952. T1225:;
  2953.     {object V522 = list(4,VV[87],(V516),VV[56],list(3,VV[139],(V516),(V517)));
  2954.     VMR58(V522)}}
  2955. }
  2956. /*    local entry for function SLOOP-SLOOP-MACRO    */
  2957.  
  2958. static object LI59(V524)
  2959.  
  2960. VOL object V524;
  2961. {     VMB59 VMS59 VMV59
  2962.     bds_check;
  2963. TTL:;
  2964.     {object V525;
  2965.     V525= (*(LnkLI13))(car((V524)));
  2966.     {object V526;
  2967.     V526= (*(LnkLI9))((V525),VV[25]);
  2968.     if(((V526))==Cnil){
  2969.     goto T1232;}
  2970.     goto T1228;
  2971. T1232:;
  2972.     base[0]= VV[85];
  2973.     base[1]= (V525);
  2974.     vs_top=(vs_base=base+0)+2;
  2975.     Lerror();
  2976.     vs_top=sup;}}
  2977. T1228:;
  2978.     {VOL object V527;
  2979.     VOL object V528;
  2980.     VOL object V529;
  2981.     VOL object V530;
  2982.     VOL object V531;
  2983.     VOL object V532;
  2984.     VOL object V533;
  2985.     base[4]= VV[224];
  2986.     vs_top=(vs_base=base+4)+1;
  2987.     Lgensym();
  2988.     vs_top=sup;
  2989.     V528= vs_base[0];
  2990.     bds_bind(VV[50],Cnil);
  2991.     bds_bind(VV[49],Cnil);
  2992.     bds_bind(VV[53],Cnil);
  2993.     V527= Cnil;
  2994.     V529= Cnil;
  2995.     V530= Cnil;
  2996.     V531= Cnil;
  2997.     V532= Cnil;
  2998.     V533= Cnil;
  2999.     bds_bind(VV[34],(V524));
  3000.     setq(VV[40],Ct);
  3001.     (void)((*(LnkLI255))());
  3002.     {object V534;
  3003.     object V535;
  3004.     V534= symbol_value(VV[46]);
  3005.     V535= (V529);
  3006.     V529= (V534);
  3007.     setq(VV[46],(V535));}
  3008.     {object V536;
  3009.     object V537;
  3010.     V536= symbol_value(VV[48]);
  3011.     V537= (V530);
  3012.     V530= (V536);
  3013.     setq(VV[48],(V537));}
  3014.     {object V538;
  3015.     object V539;
  3016.     V538= symbol_value(VV[43]);
  3017.     V539= (V531);
  3018.     V531= (V538);
  3019.     setq(VV[43],(V539));}
  3020.     {object V540;
  3021.     object V541;
  3022.     V540= symbol_value(VV[41]);
  3023.     V541= (V532);
  3024.     V532= (V540);
  3025.     setq(VV[41],(V541));}
  3026.     {object V542;
  3027.     object V543;
  3028.     V542= symbol_value(VV[42]);
  3029.     V543= (V533);
  3030.     V533= (V542);
  3031.     setq(VV[42],(V543));}
  3032.     (VV[50]->s.s_dbind)= (((VV[50]->s.s_dbind))==Cnil?Ct:Cnil);
  3033.     (void)((*(LnkLI257))());
  3034.     {object V544;
  3035.     object V545;
  3036.     V544= symbol_value(VV[46]);
  3037.     V545= (V529);
  3038.     V529= (V544);
  3039.     setq(VV[46],(V545));}
  3040.     {object V546;
  3041.     object V547;
  3042.     V546= symbol_value(VV[48]);
  3043.     V547= (V530);
  3044.     V530= (V546);
  3045.     setq(VV[48],(V547));}
  3046.     {object V548;
  3047.     object V549;
  3048.     V548= symbol_value(VV[43]);
  3049.     V549= (V531);
  3050.     V531= (V548);
  3051.     setq(VV[43],(V549));}
  3052.     {object V550;
  3053.     object V551;
  3054.     V550= symbol_value(VV[41]);
  3055.     V551= (V532);
  3056.     V532= (V550);
  3057.     setq(VV[41],(V551));}
  3058.     {object V552;
  3059.     object V553;
  3060.     V552= symbol_value(VV[42]);
  3061.     V553= (V533);
  3062.     V533= (V552);
  3063.     setq(VV[42],(V553));}
  3064.     (VV[50]->s.s_dbind)= (((VV[50]->s.s_dbind))==Cnil?Ct:Cnil);
  3065. T1318:;
  3066.     if(((VV[34]->s.s_dbind))!=Cnil){
  3067.     goto T1319;}
  3068.     goto T1316;
  3069. T1319:;
  3070.     {VOL object V554;
  3071.     frs_push(FRS_CATCH,VV[27]);
  3072.     if(nlj_active)
  3073.     {nlj_active=FALSE;frs_pop();
  3074.     vs_top=sup;
  3075.     V554= vs_base[0];
  3076.     goto T1324;}
  3077.     else{
  3078.     V555= (*(LnkLI251))();
  3079.     frs_pop();
  3080.     V554= V555;}
  3081. T1324:;
  3082.     if(((V554))==Cnil){
  3083.     goto T1327;}
  3084.     goto T1323;
  3085. T1327:;
  3086.     if(((VV[34]->s.s_dbind))!=Cnil){
  3087.     goto T1330;}
  3088.     goto T1316;
  3089. T1330:;
  3090.     (void)(print((VV[34]->s.s_dbind),Cnil));
  3091.     {object V556;
  3092.     object V557;
  3093.     V556= symbol_value(VV[46]);
  3094.     V557= (V529);
  3095.     V529= (V556);
  3096.     setq(VV[46],(V557));}
  3097.     {object V558;
  3098.     object V559;
  3099.     V558= symbol_value(VV[48]);
  3100.     V559= (V530);
  3101.     V530= (V558);
  3102.     setq(VV[48],(V559));}
  3103.     {object V560;
  3104.     object V561;
  3105.     V560= symbol_value(VV[43]);
  3106.     V561= (V531);
  3107.     V531= (V560);
  3108.     setq(VV[43],(V561));}
  3109.     {object V562;
  3110.     object V563;
  3111.     V562= symbol_value(VV[41]);
  3112.     V563= (V532);
  3113.     V532= (V562);
  3114.     setq(VV[41],(V563));}
  3115.     {object V564;
  3116.     object V565;
  3117.     V564= symbol_value(VV[42]);
  3118.     V565= (V533);
  3119.     V533= (V564);
  3120.     setq(VV[42],(V565));}
  3121.     (VV[50]->s.s_dbind)= (((VV[50]->s.s_dbind))==Cnil?Ct:Cnil);
  3122.     (void)((*(LnkLI261))());
  3123.     {object V566;
  3124.     object V567;
  3125.     V566= symbol_value(VV[46]);
  3126.     V567= (V529);
  3127.     V529= (V566);
  3128.     setq(VV[46],(V567));}
  3129.     {object V568;
  3130.     object V569;
  3131.     V568= symbol_value(VV[48]);
  3132.     V569= (V530);
  3133.     V530= (V568);
  3134.     setq(VV[48],(V569));}
  3135.     {object V570;
  3136.     object V571;
  3137.     V570= symbol_value(VV[43]);
  3138.     V571= (V531);
  3139.     V531= (V570);
  3140.     setq(VV[43],(V571));}
  3141.     {object V572;
  3142.     object V573;
  3143.     V572= symbol_value(VV[41]);
  3144.     V573= (V532);
  3145.     V532= (V572);
  3146.     setq(VV[41],(V573));}
  3147.     {object V574;
  3148.     object V575;
  3149.     V574= symbol_value(VV[42]);
  3150.     V575= (V533);
  3151.     V533= (V574);
  3152.     setq(VV[42],(V575));}
  3153.     (VV[50]->s.s_dbind)= (((VV[50]->s.s_dbind))==Cnil?Ct:Cnil);
  3154.     (void)(print((VV[34]->s.s_dbind),Cnil));}
  3155. T1323:;
  3156.     goto T1318;
  3157. T1316:;
  3158.     {object V576;
  3159.     object V577;
  3160.     V576= symbol_value(VV[46]);
  3161.     V577= (V529);
  3162.     V529= (V576);
  3163.     setq(VV[46],(V577));}
  3164.     {object V578;
  3165.     object V579;
  3166.     V578= symbol_value(VV[48]);
  3167.     V579= (V530);
  3168.     V530= (V578);
  3169.     setq(VV[48],(V579));}
  3170.     {object V580;
  3171.     object V581;
  3172.     V580= symbol_value(VV[43]);
  3173.     V581= (V531);
  3174.     V531= (V580);
  3175.     setq(VV[43],(V581));}
  3176.     {object V582;
  3177.     object V583;
  3178.     V582= symbol_value(VV[41]);
  3179.     V583= (V532);
  3180.     V532= (V582);
  3181.     setq(VV[41],(V583));}
  3182.     {object V584;
  3183.     object V585;
  3184.     V584= symbol_value(VV[42]);
  3185.     V585= (V533);
  3186.     V533= (V584);
  3187.     setq(VV[42],(V585));}
  3188.     (VV[50]->s.s_dbind)= (((VV[50]->s.s_dbind))==Cnil?Ct:Cnil);
  3189.     V527= nreverse((VV[49]->s.s_dbind));
  3190.     if((VV[53]->s.s_dbind)==Cnil){
  3191.     goto T1449;}
  3192.     V527= (*(LnkLI252))((V527));
  3193. T1449:;
  3194.     {object V586;
  3195.     V587= list(3,VV[66],Cnil,list(3,VV[61],VV[225],list(2,VV[10],(V528))));
  3196.     V588= make_cons(/* INLINE-ARGS */V587,Cnil);
  3197.     base[4]= nreverse(symbol_value(VV[48]));
  3198.     if(((VV[53]->s.s_dbind))==Cnil){
  3199.     goto T1455;}
  3200.     base[5]= Cnil;
  3201.     goto T1454;
  3202. T1455:;
  3203.     base[5]= VV[226];
  3204. T1454:;
  3205.     base[6]= nreverse(symbol_value(VV[41]));
  3206.     base[7]= (V527);
  3207.     base[8]= nreverse(symbol_value(VV[42]));
  3208.     if(((VV[53]->s.s_dbind))==Cnil){
  3209.     goto T1461;}
  3210.     base[9]= Cnil;
  3211.     goto T1460;
  3212. T1461:;
  3213.     base[9]= VV[227];
  3214. T1460:;
  3215.     V590= nreverse(symbol_value(VV[43]));
  3216.     base[10]= make_cons((V528),/* INLINE-ARGS */V590);
  3217.     vs_top=(vs_base=base+4)+7;
  3218.     Lappend();
  3219.     vs_top=sup;
  3220.     V589= vs_base[0];
  3221.     V586= list(3,VV[71],/* INLINE-ARGS */V588,make_cons(VV[73],V589));
  3222.     {object V591;
  3223.     object V592;
  3224.     V591= symbol_value(VV[46]);
  3225.     V592= car((V591));
  3226. T1468:;
  3227.     if(!(endp((V591)))){
  3228.     goto T1469;}
  3229.     goto T1464;
  3230. T1469:;
  3231.     V593= (*(LnkLI253))((V592));
  3232.     if((cdr((V592)))!=Cnil){
  3233.     goto T1476;}
  3234.     V594= Cnil;
  3235.     goto T1475;
  3236. T1476:;
  3237.     V595= make_cons(VV[77],cdr((V592)));
  3238.     V594= make_cons(/* INLINE-ARGS */V595,Cnil);
  3239. T1475:;
  3240.     V596= make_cons((V586),Cnil);
  3241.     V586= listA(3,VV[12],/* INLINE-ARGS */V593,append(V594,/* INLINE-ARGS */V596));
  3242.     V591= cdr((V591));
  3243.     V592= car((V591));
  3244.     goto T1468;}
  3245. T1464:;
  3246.     {object V597;
  3247.     object V598;
  3248.     V597= symbol_value(VV[46]);
  3249.     V598= (V529);
  3250.     V529= (V597);
  3251.     setq(VV[46],(V598));}
  3252.     {object V599;
  3253.     object V600;
  3254.     V599= symbol_value(VV[48]);
  3255.     V600= (V530);
  3256.     V530= (V599);
  3257.     setq(VV[48],(V600));}
  3258.     {object V601;
  3259.     object V602;
  3260.     V601= symbol_value(VV[43]);
  3261.     V602= (V531);
  3262.     V531= (V601);
  3263.     setq(VV[43],(V602));}
  3264.     {object V603;
  3265.     object V604;
  3266.     V603= symbol_value(VV[41]);
  3267.     V604= (V532);
  3268.     V532= (V603);
  3269.     setq(VV[41],(V604));}
  3270.     {object V605;
  3271.     object V606;
  3272.     V605= symbol_value(VV[42]);
  3273.     V606= (V533);
  3274.     V533= (V605);
  3275.     setq(VV[42],(V606));}
  3276.     (VV[50]->s.s_dbind)= (((VV[50]->s.s_dbind))==Cnil?Ct:Cnil);
  3277.     {object V607 = list(2,VV[56],(V586));
  3278.     bds_unwind1;
  3279.     bds_unwind1;
  3280.     bds_unwind1;
  3281.     bds_unwind1;
  3282.     VMR59(V607)}}}
  3283. }
  3284. /*    local entry for function IN-CAREFULLY-SLOOP-FOR    */
  3285.  
  3286. static object LI60(V610,V611)
  3287.  
  3288. object V610;object V611;
  3289. {     VMB60 VMS60 VMV60
  3290. TTL:;
  3291.     {register object V612;
  3292.     base[0]= VV[228];
  3293.     vs_top=(vs_base=base+0)+1;
  3294.     Lgensym();
  3295.     vs_top=sup;
  3296.     V612= vs_base[0];
  3297.     base[0]= VV[87];
  3298.     base[1]= (V612);
  3299.     base[2]= VV[5];
  3300.     base[3]= VV[87];
  3301.     base[4]= (V610);
  3302.     base[5]= VV[97];
  3303.     base[6]= list(3,VV[15],(V612),(V611));
  3304.     base[7]= VV[56];
  3305.     base[8]= list(3,VV[139],(V610),list(2,VV[17],(V612)));
  3306.     base[9]= VV[90];
  3307.     base[10]= list(3,VV[5],list(2,VV[229],(V612)),VV[230]);
  3308.     base[11]= VV[89];
  3309.     base[12]= list(3,VV[15],(V612),list(2,VV[18],(V612)));
  3310.     vs_top=(vs_base=base+0)+13;
  3311.     Llist();
  3312.     vs_top=sup;
  3313.     {object V613 = vs_base[0];
  3314.     VMR60(V613)}}
  3315. }
  3316. /*    local entry for function FIRST-USE-SLOOP-FOR    */
  3317.  
  3318. static object LI61(V618,V619,V620,V621)
  3319.  
  3320. object V618;object V619;object V620;object V621;
  3321. {     VMB61 VMS61 VMV61
  3322. TTL:;{object V622;
  3323.     V622= (*(LnkLI9))((V620),VV[223]);
  3324.     if(V622==Cnil)goto T1536;
  3325.     goto T1535;
  3326. T1536:;}
  3327.     base[0]= VV[231];
  3328.     vs_top=(vs_base=base+0)+1;
  3329.     Lerror();
  3330.     vs_top=sup;
  3331. T1535:;
  3332.     V623= list(3,VV[139],(V618),(V619));
  3333.     {object V624 = list(6,VV[87],(V618),VV[97],/* INLINE-ARGS */V623,VV[89],list(3,VV[139],(V618),(V621)));
  3334.     VMR61(V624)}
  3335. }
  3336. /*    local entry for function FIRST-SLOOP-FOR    */
  3337.  
  3338. static object LI62(V629,V630,V631,V632)
  3339.  
  3340. register object V629;object V630;object V631;object V632;
  3341. {     VMB62 VMS62 VMV62
  3342. TTL:;{object V633;
  3343.     V633= (*(LnkLI9))((V631),VV[223]);
  3344.     if(V633==Cnil)goto T1540;
  3345.     goto T1539;
  3346. T1540:;}
  3347.     base[0]= VV[232];
  3348.     vs_top=(vs_base=base+0)+1;
  3349.     Lerror();
  3350.     vs_top=sup;
  3351. T1539:;
  3352.     if((symbol_value(VV[42]))!=Cnil){
  3353.     goto T1544;}
  3354.     V634= list(3,VV[139],(V629),(V630));
  3355.     {object V635 = list(6,VV[87],(V629),VV[97],/* INLINE-ARGS */V634,VV[89],list(3,VV[139],(V629),(V632)));
  3356.     VMR62(V635)}
  3357. T1544:;
  3358.     {object V636;
  3359.     vs_base=vs_top;
  3360.     Lgensym();
  3361.     vs_top=sup;
  3362.     V636= vs_base[0];
  3363.     V637= list(2,(V636),list(3,VV[139],(V629),(V632)));
  3364.     V638= list(3,VV[14],/* INLINE-ARGS */V637,list(2,Ct,list(3,VV[139],(V629),(V630))));
  3365.     {object V639 = list(8,VV[87],(V629),VV[87],(V636),VV[56],/* INLINE-ARGS */V638,VV[89],list(3,VV[139],(V636),Ct));
  3366.     VMR62(V639)}}
  3367. }
  3368. /*    function definition for FIND-IN-ORDERED-LIST    */
  3369.  
  3370. static L63()
  3371. {register object *base=vs_base;
  3372.     register object *sup=base+VM63; VC63
  3373.     vs_reserve(VM63);
  3374.     {register object V640;
  3375.     object V641;
  3376.     register object V642;
  3377.     if(vs_top-vs_base<2) too_few_arguments();
  3378.     if(vs_top-vs_base>3) too_many_arguments();
  3379.     V640=(base[0]);
  3380.     V641=(base[1]);
  3381.     vs_base=vs_base+2;
  3382.     if(vs_base>=vs_top){vs_top=sup;goto T1547;}
  3383.     V642=(base[2]);
  3384.     vs_top=sup;
  3385.     goto T1548;
  3386. T1547:;
  3387.     V642= symbol_value(VV[233]);
  3388. T1548:;
  3389.     {register object V643;
  3390.     V643= Cnil;
  3391.     {register object V644;
  3392.     V644= (V641);
  3393. T1552:;
  3394.     if(((V644))!=Cnil){
  3395.     goto T1553;}
  3396.     base[3]= (V643);
  3397.     base[4]= Cnil;
  3398.     vs_top=(vs_base=base+3)+2;
  3399.     return;
  3400. T1553:;
  3401.     if(!(eql(car((V644)),(V640)))){
  3402.     goto T1561;}
  3403.     base[3]= (V644);
  3404.     base[4]= Ct;
  3405.     vs_top=(vs_base=base+3)+2;
  3406.     return;
  3407. T1561:;
  3408.     base[3]= (V640);
  3409.     base[4]= car((V644));
  3410.     vs_top=(vs_base=base+3)+2;
  3411.     super_funcall_no_event((V642));
  3412.     vs_top=sup;
  3413.     if((vs_base[0])==Cnil){
  3414.     goto T1559;}
  3415.     base[3]= (V643);
  3416.     base[4]= Cnil;
  3417.     vs_top=(vs_base=base+3)+2;
  3418.     return;
  3419. T1559:;
  3420.     V643= (V644);
  3421.     V644= cdr((V644));
  3422.     goto T1552;}}
  3423.     }
  3424. }
  3425. /*    local entry for function COLLATE-SLOOP-COLLECT    */
  3426.  
  3427. static object LI64(V647,V648)
  3428.  
  3429. object V647;object V648;
  3430. {     VMB64 VMS64 VMV64
  3431. TTL:;
  3432.     V649= list(3,VV[236],(V648),(V647));
  3433.     V650= list(2,VV[238],list(3,VV[15],VV[239],list(3,VV[119],(V648),VV[240])));
  3434.     {object V651 = list(2,VV[56],list(4,VV[234],VV[235],/* INLINE-ARGS */V649,list(3,VV[104],VV[237],list(3,VV[14],/* INLINE-ARGS */V650,list(2,Ct,list(3,VV[15],(V647),list(3,VV[119],(V648),(V647))))))));
  3435.     VMR64(V651)}
  3436. }
  3437. /*    local entry for function IN-FRINGE-SLOOP-MAP    */
  3438.  
  3439. static object LI65(V654,V655)
  3440.  
  3441. register object V654;object V655;
  3442. {     VMB65 VMS65 VMV65
  3443. TTL:;
  3444.     {register object V656;
  3445.     vs_base=vs_top;
  3446.     Lgensym();
  3447.     vs_top=sup;
  3448.     V656= vs_base[0];
  3449.     V657= make_cons((V654),Cnil);
  3450.     V658= list(2,(V656),VV[244]);
  3451.     V659= make_cons(/* INLINE-ARGS */V658,Cnil);
  3452.     V660= list(2,VV[140],(V656));
  3453.     V661= make_cons(/* INLINE-ARGS */V660,Cnil);
  3454.     V662= list(2,VV[229],(V656));
  3455.     V663= list(3,VV[15],(V654),(V656));
  3456.     V664= list(3,/* INLINE-ARGS */V662,/* INLINE-ARGS */V663,list(3,VV[15],(V656),Cnil));
  3457.     V665= list(3,VV[15],(V654),list(2,VV[17],(V656)));
  3458.     V666= list(3,VV[14],/* INLINE-ARGS */V664,list(3,Ct,/* INLINE-ARGS */V665,list(3,VV[15],(V656),list(2,VV[18],(V656)))));
  3459.     V667= list(2,VV[140],(V654));
  3460.     V668= make_cons(/* INLINE-ARGS */V667,Cnil);
  3461.     V669= list(2,VV[229],(V654));
  3462.     V670= make_cons(/* INLINE-ARGS */V669,VV[245]);
  3463.     V671= list(3,VV[242],VV[243],list(5,VV[56],/* INLINE-ARGS */V659,/* INLINE-ARGS */V661,/* INLINE-ARGS */V666,list(4,VV[14],/* INLINE-ARGS */V668,/* INLINE-ARGS */V670,list(2,Ct,list(2,VV[242],(V654))))));
  3464.     V672= make_cons(/* INLINE-ARGS */V671,Cnil);
  3465.     {object V673 = list(3,VV[12],/* INLINE-ARGS */V657,list(3,VV[241],/* INLINE-ARGS */V672,list(2,VV[242],(V655))));
  3466.     VMR65(V673)}}
  3467. }
  3468. static LnkT277(){ call_or_link(VV[277],&Lnk277);} /* SUBTYPEP */
  3469. static object  LnkTLI276(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[276],&LnkLI276,2,ap);} /* THE-TYPE */
  3470. static object  LnkTLI275(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[275],&LnkLI275,2,ap);} /* PARSE-LOOP-MAP */
  3471. static object  LnkTLI274(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[274],&LnkLI274,ap);} /* ADD-FROM-DATA */
  3472. static object  LnkTLI273(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[273],&LnkLI273,ap);} /* LOOP-DECLARE-BINDING */
  3473. static object  LnkTLI272(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[272],&LnkLI272,2,ap);} /* MAKE-VALUE */
  3474. static LnkT129(){ call_or_link(VV[129],&Lnk129);} /* TYPEP */
  3475. static object  LnkTLI271(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[271],&LnkLI271,3,ap);} /* LOOP-PARSE-ADDITIONAL-COLLECTIONS */
  3476. static object  LnkTLI270(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[270],&LnkLI270,1,ap);} /* POINTER-FOR-COLLECT */
  3477. static object  LnkTLI269(){return call_proc0(VV[269],&LnkLI269);} /* PARSE-ONE-WHEN-CLAUSE */
  3478. static object  LnkTLI268(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[268],&LnkLI268,ap);} /* LOOP-ADD-TEMPS */
  3479. static object  LnkTLI267(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[267],&LnkLI267,ap);} /* LOOP-ADD-BINDING */
  3480. static object  LnkTLI266(){return call_proc0(VV[266],&LnkLI266);} /* LOOP-UN-POP */
  3481. static object  LnkTLI265(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[265],&LnkLI265,ap);} /* PARSE-LOOP-MACRO */
  3482. static object  LnkTLI264(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[264],&LnkLI264,ap);} /* PARSE-LOOP-DECLARE */
  3483. static object  LnkTLI263(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[263],&LnkLI263,ap);} /* PARSE-LOOP-WITH */
  3484. static object  LnkTLI262(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[262],&LnkLI262,1,ap);} /* PARSE-LOOP-INITIALLY */
  3485. static object  LnkTLI261(){return call_proc0(VV[261],&LnkLI261);} /* PARSE-LOOP-COLLECT */
  3486. static object  LnkTLI260(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[260],&LnkLI260,1,ap);} /* LOOP-COLLECT-KEYWORD-P */
  3487. static object  LnkTLI259(){return call_proc0(VV[259],&LnkLI259);} /* PARSE-LOOP-WHEN */
  3488. static object  LnkTLI258(){return call_proc0(VV[258],&LnkLI258);} /* PARSE-LOOP-DO */
  3489. static object  LnkTLI257(){return call_proc0(VV[257],&LnkLI257);} /* PARSE-LOOP-FOR */
  3490. static object  LnkTLI256(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[256],&LnkLI256,1,ap);} /* PARSE-NO-BODY */
  3491. static object  LnkTLI255(){return call_proc0(VV[255],&LnkLI255);} /* LOOP-POP */
  3492. static object  LnkTLI9(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[9],&LnkLI9,2,ap);} /* L-EQUAL */
  3493. static object  LnkTLI254(){return call_proc0(VV[254],&LnkLI254);} /* LOOP-PEEK */
  3494. static object  LnkTLI13(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[13],&LnkLI13,1,ap);} /* TRANSLATE-NAME */
  3495. static object  LnkTLI253(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[253],&LnkLI253,1,ap);} /* LOOP-LET-BINDINGS */
  3496. static object  LnkTLI252(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[252],&LnkLI252,1,ap);} /* SUBSTITUTE-SLOOP-BODY */
  3497. static object  LnkTLI251(){return call_proc0(VV[251],&LnkLI251);} /* PARSE-LOOP1 */
  3498. static object  LnkTLI249(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[249],&LnkLI249,ap);} /* FIND */
  3499. static object  LnkTLI248(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[248],&LnkLI248,ap);} /* DEF-LOOP-INTERNAL */
  3500. static object  LnkTLI247(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[247],&LnkLI247,1,ap);} /* PARSE-LOOP */
  3501. static object  LnkTLI246(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[246],&LnkLI246,2,ap);} /* DESETQ1 */
  3502.